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Competitions 
Following our announcement in the 
August edition on the complexities 
of the Inside Out competition, many 
of you wrote in asking us to check 
your entry against the overall win- 
ner’s list. 

As a result, we were able to select 
the second prizewinner — he is Paul 
Gelling from Tewkesbury in 
Gloucestershire. Paul receives an 
Insider disk interface board from 
Silicon Express. 

For those of you who missed Au- 
gust’s QL User, the winner was 
Peter Skiba from Blackpool. He wins 
the Silicon Express disk system and 
Insider board. 
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What to look for in our November 
edition. 
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SuperBasic Compilation 


First impressions of possibly one of 
the most exciting products to emerge 
for the QL — a full spec SuperBasic 
compiler. 
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PRINT VER$ saga. 
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Spectrum Connections 


Got a Spectrum? Wish you could 
connect it to the QL with its superior 
editing facilities? Well, now you 
Can | 
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Hardware Horizons V 


CST’s new QL Winchester hard disk 
is one of the products reviewed in 
our fifth hardware roundup. 
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More literary criticism and novel 


scrutiny. 
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Break In! 


At long last someone’s had the 
wherewithall to code a warm reset 
for the QL...And all because we 
asked him to. 
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Heard the one about... and other 
fiendish rumours, espoused by our 
shady sleuth. 
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34 


C Series 
The continuing story of a program- 
mer and a high level language. 
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and run. 


Readers’ Service . 48 


Microdrive Exchange 


Our QL programs-on-microdrive 
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Four free games for every QL owner! 
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M-COSMIC. Your job is to save your friends, 
deep-frozen in an enemy space-ship. 
A mission of cool nerve and firm courage. 
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M -— CRUNCHER. Stay clear of the jaws that 
chase you through the maze, avoiding 
hazards and building points as you go. 


MEDIC now offer every Sinclair QL owner four brilliant 
new games — absolutely free! Just send three 
formatted blank microdrive cartridges for these four 
best-ever games for the QL, testing your skill, speed 
and concentration with colourful screens and 
inventive displays. 


All games 100% machine code, with flicker-free multi- 
colour multi-screen graphics. Three full cartridges of 


M-— TREASURE. Deep underground there are 
bags of gold for you to collect — and man- 
eating spiders to stop and slay you. 


M-—METROPOLIS. Fast-moving excitement 
as you steer through screen after screen of 
incredible dangers and rich rewards. 


fast-moving instantly-responsive action. 


WHY? Medic offer you this fantastic games value 
FREE, because they want you to see the quality of 
Medic software, and as their way of showing their 
committment to this superb machine. 


Fillin and post the coupon TODAY to make sure of 
your MEDIC free games. 


To: Medic Datasystems Limited, 
Hackwood Lane, Cliddesden, 
Hants. RG25 2NH. 


Please send me my four free MEDIC games.. 


| enclose three blank formatted cartridges, plus 
£2.50 to cover postage, packing and recording. 


(Cheque or PO. U.K. sterling or Girocheques). 


Name 
Address 


Telephone Code____ Number 


Please complete all details and write clearly. 


Massive Cuts 


As of 2nd September Sinclair 
Research will have cut the 
price of the QL by half, from 
£399 to £199.95. According to 
Jane Boothroyd, UK Sales and 
Marketing manager, the 
massive reduction is ‘in line 
with reduced manufacturing 
costs’. Industry sceptics, 
however, would view this asa 
last ditch attempt to save the 
QL in the light of fierce 
competition from Atari, 
Amstrad and Commodore. 
Whatever the reason, there 
can be little doubt that the 
new pricing, coming as it does 
immediately prior to the peak 
selling Christmas period, will 
send shudders through the 
industry and hopefully the 
competition. 

At under £200, the QL now 
makes a mockery of any 
distinction between home 
computers destined for 
entertainment use and those 
for serious use in small 
businesses or education. With 
128K RAM, 32-bit 
architecture, 2x 100K 
microdrives it can outperform 
any mass market games 
playing machine currently 
available. Furthermore its 
award winning bundled 
software means that users will 
have access to the so-called 
‘essential’ applications (ie, 
word processing, database and 
spreadsheet operations) at no 
extra cost. 

The new pricing would also 
seem to indicate that Sinclair 
now see the QL as the logical 
successor to the Spectrum. 
This view would seem to have 
been anticipated by 
independent peripheral 
manufacturers who have been 
quick to support the machine. 
Users are now able to pick and 
choose between a variety of 
competitively priced 
expansion options and need 
not necessarily depend upon 
those marketed by Sinclair 
themselves. 


The latest software, hardware and information on the QL product front. 


ICEd Over 


Eidersoft’s Icon Control 
Environment or ICE for short, 
is the QL’s answer to GEM. 
Designed as a user-friendly 
‘front end’ for QDOS, ICE 
allows you to control the QL’s 
various functions with 
childlike ease. 

Similar to GEM it cocoons 
the user from the vagaries of 
the operating system ina 
protective graphics shell. This 
takes as its theme the idea 
that a parallel can be drawn 
between operating a computer 
and running a busy office. 
Switch on your QL and the 
screen depicts a tidy little 
workdesk with little figures or 
‘icons’ dotted over it 
representing devices that can 
be linked to the QL, various 
files in storage and such odds 
and ends as a wastepaper 
basket, calculator and 
calendar. All you have to do is 
select an operation from a 
control panel at the foot of the 
display and point to the 
appropriate item or items on 
the screen and ICE will take 
care of the rest. In this way 


The same cannot be said of 
games software houses. 
Whilst the QL is well 


_ supported in terms of business 


and development software, 
there are few games of note 
running on it. Despite the 
obvious signs that 8-bit 
processors such as the Z80 and 
6502 have had their day none 
of the big names have been 
prepared to risk a move across 
the 68000. 

Given the QL’s new price 
and the fact that Dixon’s alone 
are, we understand, stocking 
30,000 machines, it will be 
interesting to see whether this 
is still the case after 
Christmas. Who said the QL 
was finished?! 


MG Extinct 


The MG ROM available on 
overseas models of the QL is 
destined never to appear in 
the UK. Sinclair are 
understood to be developing 
an even better ROM for home 
consumption. This is just as 
well as the MG has found few 
supporters overseas. 
Apparently an ‘improvement’ 
in a line drawing algorithm 
has meant that points drawn 
on the screen do not appear 
where they are supposed to. 


keyboard input is reduced to 
an absolute minimum and the 
system is virtually idiot-proof. 
Without an elaborate 
system of pull down windows 
ICE is very much less 
sophisticated than GEM. 


A fully operational calculator — one of the ICE screen options. 


EPROM that plugs into a 
socket on the back of the QL. 
ICE will cost £49.95 and 
will be marketed along with a 
microdrive cartridge 
containing a number of useful 
utilities colourfully described 


However, such a comparison is | as ICING. The most 


largely academic as without 
drastic modification the QL 
could not possibly support all 


interesting of these is QTASK 
a program that permits users 
to flick back and forth 


90K of GEM. ICE, on the other | instantly between programs 


hand occupies next to no 
memory as it sits in a 16K 


Psion Update 

The latest versions of Psion’s 
software are putting in an 
appearance in Europe. The 
differences between version 
2.00 and 2.03 are: 

1. Memory allocation 
problems have been ironed out 
so that you may re-use your 
programs without getting an 
error message and being 
compelled to reset the QL. 

2. Quill incorporates an 
option to import a file by line 
or paragraph. 

3. In addition to the current 
Epson‘screen dump, Easel will 
cater for nine other printers 
and will allow for standard 
output to Epson and HWP 
plotters. 

4. Archive now include an 
option to design your own 
printed forms using SEDIT. 


loaded into memory simply by 
pressing CTRL+F3. 


RAMbling On 


Silicon Express have come up 
with one of those simple ideas 
that you wish you'd thought of 
yourself. Simply prise the lid 
off your QL, yank out the 16 
64K DRAMs installed 
courtesy of Sinclair and plug 
in a similar number of the 
very latest 256K chips. 

If you did it yourself, you 
would have transformed your 
QL into the most expensive 
doorstop you’ve ever had the 
privilege to buy. And, having 
invalidated the warranty you 
would be stuck with it for the 
rest of its non-biodegradable 
life. 

However, if the 
microsurgeons at Silicon 
Express perform the operation 
using a special desoldering 
machine, you get a fourfold 


5. A facility to load from and| increase in memory, a pristine 


save to the Network device 
has been implemented. 

6. The algorithms 
controlling use of memory 
with Quill have been 
improved so that it is now 
possible to create 12K 
documents on Quill before the 
program overlays it to 
microdrive. 

Further information from 
Psion — 01-723 9408 


QL and a 90 day warranty for 
everything but the 
microdrives. As the latter are 
the things most likely to go 
wrong with the QL the 
upgrade would seem 
inadvisable for those with 
brand new machines. For the 
rest however, at a third of the 
price of a conventional 
upgrade yet identical in © 
performance, it’s ideal. 
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the magazine over to you, our 


comments, criticisms or 


send your letters is: Open 


Court, 30-32 Farringdon 


Dead End Game 


Ihave bought a copy of the 
program QL Cavern. The 
game works well until you 
have collected all 395 
diamonds then nothing 
happens. After spending one 
hour getting this far I went 
through most of the caverns 
looking for a possible exit. 
None was to be found. 

Ihave rung up Sinclair to 
ask but with no luck. If any of 
your readers have found the 
exit, or if there isn’t one, I 
would like to know. Is poor BJ 
condemned to a life of 
wandering through empty 
caverns? 

PD Riggs 
Witley, Surrey 


Having collected all 395 
diamonds in QL Cavern, what 
do you do to end the game? I 
have tried several things, but 
to no avail. Please can 
anybody help! 

B Moffat 

Glenrothes, Fife 


Half Way Happy 


To be truthful I am a button | 
pusher. New to computing, so 
I’ve no idea what’s what! I 
have difficulty trying to get 
programs published in other 
magazines to work. This I 
guess is due to typesetting 
errors and the like. However, 
I’m elated. For the first time I 
struck gold with two program 


This is the spot where we turn 
readers. We welcome any 


anecdotes about either the QL 
or QL User. The address to 


Channel, QL User, Priory 


Lane, London EC1R 3AU 


‘| listings in my first ever copy of 


QL User (August edition). Yes 
both Miners and Type Right 
work!!! But I had the same old 
‘no success’ problems with 
Mouse Maze and Qthello. 
There must be some way to 
ensure that program listings 
are 100% accurate. Then us 
button pushers out here will 
get the satisfaction we deserve. 

So just two questions, why 
are listings inaccurate and 
what can be done to resolve 
the problem. Maybe good old 
quality control would help? 
Steve Redhead ‘ 
Tokyo 


We repeat this time and time 
again. Once the programs 
have been tested, the listings 
come hot from the QL and are 
virtually photographed 
(PMT’d) into the magazine. 
No typesetting whatsoever 
occurs. For this reason us pen 
pushers are confident that 
button pushers like yourself 
have made mistakes in typing 
in the programs. By giving 
tips as to how to débug your 


‘ programs either over the 


Phone or in the magazine we 
ceaselessly endeavour to help 
you learn the error of your 
ways. However, if further 
proof is required as might well 
be the case with long listings, 
then simply get hold of a copy 
of the program from our 
Microdrive Exchange - it 
won’t cost you an arm and leg. 
Incidentally, if you read the 
instructions for ‘Mouse Maze” 
you'll see that “Maze Drawer” 
has to be typed in first and 
saved to mdv1_. 


Sound Barrier 


A few months ago there was 
an article about making 
sounds on your QL. I think 
there should be a section for 
people to send in their ideas 
from new sounds. Here are a 
few suggestions. 

BEEP 0,0,67,475,0 (alarm 


clock) 
BEEP 0,0,9,45,79 (alarm) 
BEEP 0,0,2,43,1 (shaver) 


BEEP 0,0,53,52,4 (Helicopter) 
Alan Russel 
Edinburgh 


Only the tone deaf would 
appreciate the QL’s sound 
making capability. One voice 
with a limited range sounding 
out through a tinny speaker is 
hardly going to impress. Nor 
is a BEEP command whose 
usage is largely experimental 
and often confusing. 


Consequently we welcome any 
suggestions. However, before 
you send in your contributions 
take a look at the Composer 
program, listed in the 
PROGS, to see just how much 
can be done with so little. 


Question Time 


By the end of September I 
intend to buy a printer. Can 
you advise me which is better 
for the QL. The Brother M- 
1009 or an EPSON? Which 
corresponds most closely with 
the capacities of the QL such 
as underlining, super and sub 
script, graphics etc. 

Secondly, when you open a 
channel to the screen you use 
the device scr_. When can you 
(or must you) use the device 
con_? I don’t understand the 
difference between them. 

And finally, why can I not 
enter machine code programs 
into my QL? I have tried the 
CALL command but it is 
ineffective! Help! 

Marc Delterne 
Belgium 


Epson’s range, in particular 
the new LX-80, comes out on 
top. Setting up the 
appropriate drivers for Psion’s 
packages is a doddle and more 
importantly all versions of 
Easel will work with them. 
However, you should bear in 
mind that Epson printers are 
more expensive and do not 
come with an RS232 interface 
as standard. 

Next, opening a channel to 
a console device is necessary if 
input from the keyboard is to 
be directed down that 
channel. For example, the 
command INPUT #1,a$ will 
fail unless you have 
previously entered OPEN 
#1,con_. Opening a channel to 
the console is more costly in 
terms of memory as a type- 
ahead keyboard buffer (128 
bytes default) is 
automatically set up. 

Incidentally, closing the 
QL’s default console channel 
(CLOSE #0) and redirecting 
input via another channel 
provides a very good way of 
preventing a SuperBasic 
program from being listed 
once it has been run. 

In answer to your last 
question, you need an 
assembler program to type in 
machine code routines. The 
CALL command simply allows 
you to execute the routines 
once they have been loaded 
into memory. 
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Instant Recall 


Iam only proficient in 
SuperBasic and would like to 
write a program which draws 
large figures on to a screen. 
Currently the graphics take 
about 5 seconds to draw but I 
need them to appear 
instantaneously (well almost). 
Obviously the way to do this 
is with a machine code routine 
which is beyond me. However 
my limited contact with other 
micros (PET, RML) has shown 
that pictures can be built up in 
screen memory and the screen 
then unblanked. The time it 
takes to do this is 
unimportant. Can this be done 
on the QL? If so tell me how? 
Paul Sander 
London E11 


The routine to build up 
pictures in memory is written 
into the firmware of the 
machines you mention. 
Unfortunately, in this respect 
the QL’s video display is 
exceedingly crude. Neither 
this routine nor a number of 
others vital for smooth 
animation are written into the 
firmware. These must be 
added by the machine code 
programmer and will execute 
at very much slower speeds. 
For this reason games on the 
QL invariably redraw entire 
screens rather than scroll 
from one side to the other. 
=a Oe 


Two Into One 


It seems that most add-on 
memories and floppy disk 
interfaces use the main I/O 
port on the left hand side of 
the QL. Is it possible to use 
both extra memory and a disk 
interface simultaneously? 
Alun Phillips 

Maidstone, Kent 


Peripherals manufacturers 
have come up with a number 
of different solutions to this 
problem. Technology 
Research include on board 
DRAMs, up to a maximum of 
128K, on their disk interfaces. 
PCML, we understand will 
also be following suit 
providing up to 256K on their 
interface board. 

If you wish to move beyond 
256K you have three choices. 
The first, is to have the 
DRAMs installed internally 
within your QL by Silicon 
Express giving you.a total of 
512K. Surprisingly, this is by 
far the cheapest option but 
invalidates your warranty. 


The second alternative, is to 
purchase additional memory 
and disk interface separately 
and connect them up to the QL 
using CST Plus Four 
expansion motherboard with 
separate power supply. This 
will give you a total of 640K 
RAM on the QL. However, 
this method is very expensive 
and is only advisable if you 
are contemplating attaching 
further devices to the QL such 
as a Winchester or additional 
floppy drives. Furthermore 
you should consult CST prior 
to purchasing extra memory 
to find out which units are 
compatible. 

The final solution is to 
purchase Medic’s 
multipurpose expansion 
system. Here, their disk 
drives provide the additional 
power necessary to run the 
extra 512K of RAM. 

Whatever your choice, you 
should appreciate that if extra 
memory is to be used to the 
full you will require a RAM 
disk driver. 


BASIC 
Misunderstanding 


Thave found yet another 
extremely strange function 
hidden inside the depths of my 
QL. After powering up the 
machine (JM), try typing 
OPEN #0,scr_. In my case the 
computer fills up the top 
window (in TV mode) with the 
error message ‘bad 
parameter’. 

Also, if you do the same 
with windows 1 and 2, it takes 
two lines the default TV size 
and changes the default colour 
of window 1. Even though the 


size change of one of the 
windows is documented in the 
manual, I do not understand 
the other two changes. Is there 
any explanation for this? 
Incidentally, I have also 
found how to print an arrow 
pointing to the right as the 
User Guide has the wrong 
keying. Instead of CTRL, 
type CTRL ]. 
J Alderson 
Studham, Beds 


NEXT 
MONTH 


GRAPHIC DETAIL 


Create some amazing graphics as pallet, 
paintbrush and ink find their way onto the 
QL in our comprehensive review of what’s 

on offer for the computer artist, 
draughtsman or games designer. 


Pts a hel oy 
ICEing On The Cake 


Eidersoft bring push-button computing 
‘American style’ to the QL. Will ICE melt 
the hearts of QL users or is it simply the 
poor man’s alternative to GEM? 


Protect & Survive 
Keep the pirates at bay. We show you how 
to shield your data, secure your programs 
and safeguard your investments. 


‘Pend nbceaneaiaa 
Business On A Budget 


The latest in payroll, stock control, 


None of these discoveries can 
be considered anomalies. All 
you are doing is altering the 
defaults for various devices. 
The parameter error crops up 
simply because you have 
failed to close channel zero. To 
confirm this enter: 

10CLOSE #0 

20 OPEN #0,scr_ 

25 PRINT #0, “Hello” 

30CLOSE #0 

40 OPEN #0,con_ 
You will see that everything 
works fine. As for the 
changing the window sizes 
you should be aware that 
there are three sets of 
defaults. Those for TV and 
Monitor which automatically 
set up windows for channels 
0,1 and2 and a third which 
may be applied to any window 
defined. This default is 
particularly useful as it 
provides a means of getting 
round the unwieldy 
WWxHHaXXxYY extension to 
the OPEN command. Instead 
use either OPEN #n,con_ or 
OPEN #n,scr_ followed by 
WINDOW #n,WW,HH,XX, 
YY. As the latter function uses 
integer arguments as opposed 
to a single string it is very 
much easier to manipulate. 


‘An astonishing deduction Holmes, 
I don’t know how you do it.’ 


invoicing, integrated accounts and time- 
keeping systems all come under the critical 
eye of our expert reviewer. 


ee eared 
PLUS 


Part two of our special three volume 
QL Owner’s Manual. 


ALL INSIDE THE 


November Edition 
ON SALE 21st OCTOBER: 


Contents subject to late revision 
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offer lI ive 
to the microdrive 


Speeding up your data access 
with Viglen disc drives means 
instant reliable access every time 


Specially designed to fit neatly into the case of 
the Sinclair QL, the Q-Disc Interface Board and 
companion disc drives are colour-matched to 
compliment your QL computer. 


51% inch Drives rietan ainpiietuce 
400K Single drive £99 £199 
800K Dual drive £179 £249 
800K Single drive £139 £247 
1.6M Dual drive £269 £329 
312 inch Drives 
PRICES 800K Single drive £158 £258 
INCLUDE 1.6M Dual drive £287 £387 


The above drives are compatible and ready to plug in and 
use with all currently available QL disc interfaces. 

When bought with the disc interface they are ready to plug 
in and use. 


Prices correct at time of going to press. Offers subject to availability. 
Even lower prices with other QL interfaces. 


Visit our showrooms 
Open Monday - Friday 9.30 - 6.00 Saturday 9.30 - 4.00 


Unit 7, Tuumpers Way 2 by 
Hanwell W7 2QA Hemiogs mond ran 


Carriage 

Please add £12.00 for carriage. Orders are 
usually despatched to you within twenty- 
four hours of receipt. 


Viglen are also major suppliers to educational 
and government establishments and welcome 
further enquiries and orders 
wm ee eee eee ee ei 
Post to: VIGLEN COMPUTER SUPPLIES. 
Unit 7, Trumpers Way, Hanwell W7 2QA. 
Credit card holders may order by telephone on 01-843 9903. 


Please send me 


A ; | enclose Cheque/P.O. for £ incl. carriage. 
| : is | Cheques payable to Viglen Computer Supplies. 
interface Nome 
Z Board OSES y Adatess: 

ZZ J 


e 


| prefer to pay by ACCESS/BARCLAYCARD 
I (delete one). Credit Cards valid only 
if signed by card holder 


3 Address must be the 
] Card No: same as card holder 


] Signature: Se 
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Back in 1984, it sounded as. if 
SuperBasic would be as much of a 
‘Quantum Leap’ as the QL itself. We 
were promised a powerful, multi- 
tasking, extendable language, 
which would run at constant speed 
regardless of program size. 

However, what appeared was a 
well-designed but hastily written 
BASIC, with a stack of bugs which 
took Sinclair a year to fix. More 
importantly, the language wouldn’t 
multi-task and ‘benchmark’ timings 
were slow — and got slower as the 
program size increased. The display- 
ed precision was only seven digits 
which is limiting for business use 
(though can be coded around). 

In July 1984, as the first ‘working’ 
QLs became available, Digital Preci- 
sion started work on SuperCharge — 
an automatic ‘compiler’ to translate 
SuperBasic into fast machine-code. 

The aim was to fix all the prob- 
lems, without affecting the power of 
the language or its expandability. 

SuperCharge’s main requirement 
was that it should compile the vast 
majority of existing SuperBasic pro- 
grams, without alteration. It should 
be able to be run on all versions of 
the QL, with the minimum amount 
of memory. And it should be fast, in 
terms of speed of operation as well as 
the generated code. 

SuperBasic is slow because it has 
to ‘look-up’ every command, line and 
variable in a program, whenever it 
is found. That’s why it is called an 
interpreter — every dot and comma is 
laboriously checked, over and over 
again, as the program runs. By 
contrast, SuperCharge performs the 
appropriate action, with no ‘look-up’ 
at all and is thus a much faster 
process. 

The SuperCharge compiler has 
two main components — a ‘parser’, to 
analyse the meaning of the original 
SuperBasic program, and a ‘code- 
generator’ to generate correspond- 
ing machine code. There is also a 
demo program and set of ‘add-on’ 


SUPERBASIC 
COMPILATION 


Simon Goodwin previews the 


program that sets out to 
revolutionise the QL’s built-in 


language 


procedures for task-control and 
error-trapping. 

The parser was first written in 
SuperBasic consisting of about 2,500 
lines without a single GO TO or GO 
SUB. Naturally, its first major chal- 
lenge was to compile itself! The 
parser reads the program to be 
compiled from the QL’s memory. 
The results of its analysis are stored 
in part of the QL’s display RAM, so 
that no temporary files are needed. 
This makes compilation very fast, 
and leaves up to 40K (on a standard 
QL) for the program text to be 
compiled. 

The code-generator is a small 
program which loads ‘on top of’ the 
parser. It is written in machine-code 
so that it can manipulate bits and 
bytes at top speed; the author was 
Gerry Jackson, who previously 
wrote Digital Precision’s Super- 
Forth. 

The code-generator selects the 
machine-code routines which will 
make up the compiled task. There is 
no ‘library overhead’ — routines are 
only included if they are needed. The 
code is written to a disk or micro- 
drive file, so it can be loaded with 
EXEC. Compiled programs load 
fast, since they don’t have to be 
‘tokenised’ by SuperBasic. They are 
also protected against prying eyes, 
as they can’t be LISTed, saving you 
the ‘pirates worry’. 

There area few. differences be- 

Readers should note that because of 

the exciting possibilities opened up by 

a SuperBasic compiler, QL User felt it 

important to preview SuperCharge be- 

fore its official launch. For this reason 


we have allowed the product’s desig- 
ner, Simon Goodwin, to present the 
article. Benchmarks and a full review 
will appear in a subsequent issue of QL 
User when production versions are 
made available. 


tween compiled and interpreted pro- 
grams, besides being a lot faster 
than the originals. The first is that 
numbers are displayed to a full nine 
digits of precision — good news for 
millionaires and those who work in 
Lire or Yen! 

Non-standard commands, such as 
those built in to disk systems, will 
work in compiled programs, so long 
as the commands are still loaded 
when the program is run. Super- 
Charge automatically adapts to dif- 
ferent ROMs and command-sets — it 
spends a moment before each run, 
searching out the routines it needs. 

The compiler only bans the few 
commands (such as ED and RE- 
NUM) which rely on the presence of 
the interpreter’s data-structures. 
This is because if it had to keep 
track of program source and the 
name list it would be little faster 
than the interpreter. 

The other trade-offs are that you 
can’t have more than 32,767 ele- 
ments in any ‘slice’ of an array. 
Strings and integers must always be 
marked with dollar or per cent signs, 
and only functions may return 
values — though you can use global 
variables as usual. The parameters 
of GO TO, GO SUB and DATA must 
be constants (not expressions). 

These trade-offs are needed. to 
make SuperCharge compact and 
fast. If you make a mistake the 
compiler prints a message in plain 
English, showing the exact point of 
your error. You can have a full 
compilation listing, on any device, if 
you wish. 

A detailed manual of almost 100 
A4 pages accompanies the compiler. 
It includes notes on the, trade-offs, 
and advice on how to get the best 
from the product. 

Preliminary timings indicate that 
compiled programs will run on aver- 
age nine times faster than conven- 
tional SuperBasic programs. This 
increases fourfold when floating 
point arithmetic is excluded. 
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release was called FB which 
presumably meant ‘Full of 
Bugs’. The line editor would 
not let you edit a line it had 
flagged as ‘bad’ — you had to 
type it all in again! Most of the 
commands didn’t work and all 


you could do with ‘FB’ was to 
play and dream about what it 


AHistorical Perspective =... 


Sinclair Research probably 
hoped would stay in office for 
at least five months if not five 
years! The line editor was 
better but the Psion packages 
were still taking minutes 
rather than seconds to load. 
And then, they rarely worked. 

But after that, Sinclair 
Research released what it 
described as the final version 
of the QL’s firmware — AH— 
which certainly brought a sigh 
of relief! The Psion software 
would now load in around 
30-40 seconds and the 
machine did not crash so 
often. It was by no means the 
final version as I shall soon 
show you. 

Ever true to its word, out 
came another ROM —- JM— 
actually named after John 
Mathieson and this 
apparently made Microdrive 
handling better. One major 
bug was still present though — 
the QL would only recognise 
one rather than 16 plug-in 


Alan Turnbull’s investigations packages included and the each deadline and this peripheral cards. The code to 
facility to multi-task machine | generated a string of Read- search for them had been 
reveal that the Quantum Leap | code programs using user- Only Memory (ROM) releases | written incorrectly —in sucha 
was not a single bound but a defined screen windows. as each batch of QLs was made | way as to only test for one 
= It was obvious that with so | slightly better than the card, then give up! 
series of short hops much to offer for £400, the QL | previous. The latest version of the 
was an ambitious project and The ROMs are actually QL’s ROM is JS which has 25 


In January 1984, the so-called | it was unfortunate that it was | named after Sinclair Research |new keywords added to allow 
Quantum Leap wasmadeby | launched with so much media _ | engineers and the two-letter error trapping in conjunction 


Sinclair Research — the QL hype in January 1984 when it | codes can be examined by with the construct ‘WHEN 
was launched with 128K RAM | wasn’t ready for despatch typing PRINT VER$ at the ERRor’ which is now 

on board, two Microdrives until six months later! QL’s keyboard. The firmware /|implemented. Sinclair 
built-in, a bundle of four Naturally, machines were has so far been through four Research insist that these 
comprehensive software rushed-out to try and meet metamorphisms — the first features are provisional and 


Listing 1 00370 * Run-tine modules 
00100 # SuperBASIC extensions to provide: : 00380 # 
00390 QD0S: CHPA.L = AS,AS Were any parameters provided? 
00400 BNE ERR_BP Yes, report ‘Bad parameter’ error 
00130 # 1) A new function QDOS$ to return the QD0S release nuaber 00410 MOVE #6,D1 ; Reserve & bytes on arithmetic stack 
00140 # 2) A command CALL to replace the faulty (pre-'JS') RON-based version. 00420 MOVEA.W $11A,A0 Required vector 
00150 # 00430 {A0) Call routine 
00160. # COPYRIGHT (c) April 1985, Alan Turnbull, 8.Sc. 00440 MOVE. $0058 (Ad) ,Al : Get arithmetic stack pointer 
00170 # 00450 i #6, AL Make room for string 
00180 # 00460 . #4,$00(A6, ALLL) } Put length of string on stack 
00190 LEA EXTENSIONS (PC) ,AL Point to list of extensions 00470 #0,D0 Get systea information 
00200 + NOVEA.W  $110,A0 Vector for linking-in extensions 00480 #1 Call routine 
00210 JSR {A0) Call routine 00490 D2,$02(A6,AL.L)- Put QD05 release code on stack 
00220 RTS : Return to SuperBASIC 00500 - Al, $0058 (A6) Reset arithmetic stack pointer 


00230 # 00510 #1,D4 Signal string result 
00240 # Table of extension definitions 00520 Return to caller: successful 
00250. # 00530 ERR_BP: #-15,00 Signal ‘Bad parameter’ 


00260 EXTENSIONS: DC.W 1 
00270 DCW CALL-# 
00280 DC.B to: 
00290 DC.B *CALL' 
00300 Dc.W (ee 
00310 DC.W 1 
00320 0C.W gos-# 
00330  *0C.B 5 


Nuaber of procedures 00540 ; Report error 

Offset of start of routine 00550 CALL: oH $118,A0 Vector to get long word integer 

Length of nase 00540 (A0) Call routine 

Nase of procedure 00570 CALL_RET Report error if unsuccessful 

End of procedures 00580 5 #2,D3 ; Get number of long word parameters 
Nuaber of functions : 00590 ERR_BP 3 Report error if no parameters 

Offset of start of routine 00400 ; D3, $0058 (Ad) Reset arithaetic stack 

Length of nase ~ 00610 $00(AG,Al.L) ,-(A7) Put start address of routine on stack 
00340 DC.B “QDOS$' ,0 ‘Name of function with padding 00620 ' $04(A6,Al.L) ,DI-D7/A0-AS ; Place parameters in processor registers 
00350 DC.W Oe End of functions 0630 #-15,00 Preset error flag 

00360 # : 00640 CALL_RET: RTS : : 3; Either return with error or juap to CALL 
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Listing 2 


100 
110 REMark 
20 2 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 IF rom_ver$(1 TO 3)='JSU' 
260 IF rom_ver$(1 TO 2)¢>‘JS' 
h QL User": STOP 

270 CALL reserved_address 

280 STOP 

290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 


RESTORE 
REPeat read_and_ store data 


READ machine_code_byte 
LET address=addregs+! 


LET rom_ver$=VER$ 


t 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 32, 
DATA 255, 


liable to change at any time. 
Anyway, the main bug is 
corrected so that the QL can 
now recognise 16 peripheral 
cards although you still need 
the as yet unreleased QL 
Motherboard. Also, the 
number base conversion so- 
called ‘utility’ vectors which 
were actually not much use at 
all now work! 

Version JS (which I am now 
the proud owner of — I 
graduated from an AH) was 
released in February 1985 and 
contains QDOS version 1.10 
which follows on from 1.02 
and 1.03 and contains an extra 
entry to TRAP #$01 with 
DO=$24. This new trap 
allows the console messages 
including the error reports to 
be re-vectored and also allows 
the QL’s character set to be 
altered for use in foreign 
countries. In fact the new 
SuperBASIC command TRA 
which is short for ‘translate’ 
simply calls this TRAP. 

Not only the firmware has 
changed regularly either. The 
hardware has had problems — 
repaired version AH QLs now 
come back with discrete 
components soldered across 
connections on the main board 
and the customised 
Uncommitted Logic Arrays 
(ULAs). No doubt there are 
decoding problems which 
Sinclair Research has kept 
quiet about. Recently, Psion 
has got its act together with 
the release of proper versions 
of its bundled software. 

All these changes in the 


LET reserved _address=RESPR (256) 

LET address=reserved_ address 

IF EOF THEN EXIT read_and_store_data 
POKE address,machine_code_byte 


END REPeat read_and_store_data 


1, 204, 78, 144 


state of the QL package have 
had an effect. The counter 
assistant in the computer 
department of my local branch 
of a well-known chemists told 
me recently that he was 
getting people coming in 
demanding QLs with version 
D12 hardware, version JS 
firmware and version 2.00 
Psion software before they 
would part with their money! 
He said this had meant he had 
to tighten-up the shop’s 
quality control. This freedom 
of information on Sinclair 
products perhaps upsets the 
shops but it is ultimately good 
news for the customer. 

So where does the QL stand 
now? Actually, it is still not 
finished and Sinclair Research 
plan to release version 2.00 of 
QDOS soon. I deduced this by 
having a sneak look through 
the code of QL Toolkit — it has 
a test for the release code of 
QDOS and an assembly 
instruction such as: 

CMPL.L #'2.00’,D2 
is a bit of a giveaway! 

Version 2.00 of QDOS will 
have two extra entries to 
TRAP #$03 — with DO=$4A 
and DO=$4B. The first one 
will allow the renaming of a 
directory based file and the 
second will truncate a file by 
chopping off the portion 
between the file pointer and 
the end of file. Also, certain 
TRAP #$02 operations are 
upgraded — TRAP #$02 with 
DO=$01 and D3=$03 will 
open a file for overwriting as 
promised in the QDOS 


REMark SuperBASIC program to implement assembly language in Listing 1 
COPYRIGHT (c) August 1985, Alan Turnbull, B.Sc. 


IF rom_ver$(1 TO 2)='FB’ OR rom_ver$(i TO 2)='PM’ THEN PRINT “Return QL to Sinclair":STOP 

IF rom_ver$(1 TO 2)='AH’ OR rom_ver$(1 TO 2)='JM’ THEN POKE_W reserved _address+i56,458 

THEN POKE_W reserved_address+154,462 

AND rom_ver$(1 TO 2)<>'MG’ THEN PRINT “New ROM - contact me throug 


Manual and TRAP #$02 with 
DO=$02 (the CLOSE 
operation) will ‘datestamp’ a 
file by making an entry in the 
update date in the file’s header 
as also indicated in the QDOS 
Manual. 

Listing 1 shows an assembly 
language program to provide a 
new SuperBASIC function — 


QDOS$ — which returns the 
ber 


current QDOS release num 

as a 4-character string in the 
format ‘n.nn’. Also, a 
correction of the infamous 
CALL bug is provided by 
simply designing a 
SuperBASIC extension with 
the same name as the 
command in ROM — the one in 
RAM gets linked-in to the 
system later and replaces the 
ROM definition. This method 
can be used to re-define all the 
keywords in the ROM if you so 
wish! 

Listing 2 provides a 
SuperBASIC program to 
implement the code in 
Listing 1. 

In early versions (pre- 
version 1.10 QDOS) of the QL, 
the CALL command will fail 
when used from within large 
SuperBASIC programs 
because word rather than long 
word addressing is used in 
indexes. My bug correction 
simply copies the ROM 
definition but changes the .W 
indexes to .L. 

Listing 3 shows a useful 
table of addresses. The run- 
time module address of each. 
keyword in the three main QL 
releases is listed to aid your 
understanding of your 
particular version of the QL. 

Meanwhile, keep your eyes 
peeled for version 2.00 of 
QDOS. 

Perhaps the two letter code 
returned from VER$ will. be 
FF — Finally Finished! 


er i ee ee 


1 
{ 


a a wes a ee hs a ie es et tn tS St cs ys st se eo 


; Keyword i “AH ROM 
: i} (QDOB v1.02) 
H u 

t PRINT t 28586 
' RUN ‘ 30232 
i STOP } 30334 
H INPUT t 28584 
; WINDOW t BQ646 
i BORDER t 30684 
H INK a 28364 
i STRIP i 28368 
t PAPER ; 28372 
Hi BLOCK t 30460 
; PAN t 2B406 
d SCROLL i 28410 
: CSIZE t 24756 
t FLASH H 25026 
i UNDER i 26020 
A OVER : 26048 
i CURSOR ‘ 24792 
‘ aT } 24806 
; SCALE i 26100 
a POINT t 26118 
H LINE i 26156 
4 ELLIPSE 5 26160 
H CIRCLE t 26160 
i ARC : 26240 
i POINT _R } 26122 
; TURN E S041& 
i TURNTO G 30408 
J PENUP t S0474 
i PENDOWN ! 30478 
i NOVE ' 30492 
: LIST t 28036 
; OPEN i 25926 
i CLOSE i 25892 
u FORMAT i 25714 
t CORY i 25746 
G COPY _N 1 25744 
i DELETE { 25570 
; BIR ; 25576 
: EXEC t 25246 


te ee Sh ra ee ee ee ee ee ae ae ee 


Mn Mel we eee Re ee ne we ee Se ee ee ae ee Se ee ee ee Oe ee oe ee oe 


‘gm° ROM t ‘gS° ROM : 
(@DOS vi.03) | {QDOS vi.io) | 
} } 
286462 t 3037: ! 
BOS22 t coer ! 
30424 t 32268 } 
28640 t 30374 ; 
30736 ! 32638 i 
S0774 ' 32676 { 
29440} 30154 { 
28444 { 30158 : 
28448 i $0162 i 
30750 1 $2652 ; 
28482 H BOL9S te 
2B4B6 1 30200 : 
24828 { 26274 1. 
26098 } 27564 ! 
26072 } 27558 : 
26120 ; 2756 ' 
24864 : 26310 i 
24878 { 26324 i 
26172 ' 27638 : 
26190 : 27656 : 
26208 { 27674 1 
26232 { 27699 1 
26232 : 27698 : 
263512 i 27/778 : 
26194 { = 27660 | 
30506 1 32408 i 
30498 ' 32400 i 
SO564 ‘ 32466 { 
30568 i 32470 { 
S05e2 i S2464 i 
28112 i 29824 4 
25998 : 27464 : 
2a704 i 27430 Lo 
25786 } 27252 t 
25812 | 27278 1 
25816 1 27282 : 
25642 : 27110 1 
25648 i e7ite i 
25518 } 26764 } 
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> 


; i : 

i i 25432 i 26886 

t i 25486 t 26940 

{ i 25490 ~=86I 26944 

' : 26036 ‘ 27500 

: : 30360 i 32202 
i a 30370 t $2212 
a 4 30402 ? 32244 
a at gosa0c8—it 32250 
1 t Boazo a B2262 
. t S0S10 3 $2152 
a a 26002 t 27468 
a | 26006 i 27472 
i | 28478 i 30192 
i ot 24612 t 26058 
a a 29626 | «31436 
a i 29408 : 31128 
q 4 2eses { 30280 
' a 28602 i 3oS16 
: t 28610 i 30324 
t a 28616 : 30330 
1 a 24380 ‘ 256826 
: a 24440 i 25886 
! a 30494 t 32556 
t ot 3o4a4 i 32326 
a a 25272 ; 26718 
1 a 28412 i 30126 
t a 28384 i 30096 
t 3 29714 t 31524 
: f 28082 t 29794 
i a 25078 4 26524 
i at 25058 ; 26504 
i 3 26212 t 27678 
a a 26236 t 27702 
t ot 26236 t 27702 
i a ROs16 $ 27782 
a 1 29672 } 31482 
: a 27668 : 31478 
{ at 26062 ' 27528 
' ’ a 30714 t 32616 
i > ; - ! 32120 
i > a - H 32344 
t S0860 yy SO950 t 32852 
i 30866 3 Sorse ‘ 32858 
i 30872 i 30962 3 32864 
t $0878 . $0768 i 32870 
a ‘30884 t 30974 1 32876 
t S0890 Q 30980 i $2882 
: SOB%6 ! 30986 i 32888 
} 30902 + sore. } 32894 


en ek ee ek Re oe me Se Sk Sk ee ee Se ee ee ee we Ok wm meme wn ne ee Ge ae me om em i me mee mem mee ie ie at i ee ee Go 


$2900 


' LOG10O i 30908 : 30998 i 
t SIN, i SO914 : 31004 t B2906 
t SORT i 30920 t S1dle t S2912 
t TAN ui BO926 u 31016 : S2918 
; DEG ; SO7S2 : 31022 t S2924 
ui RAD i So9S8 t 31028 3 B2950 
t RRND t 3i0i0 : $1100 t $3002 
t INT ; Si110 i 31200 u $3108 
i ABS ‘ 30970 i 31060 : S2962 
q FI ? Bid96 i S1iB6 : SS090 
t PEEK ; Si134 i SiZ24 ' SS132 
i PEER _W t Sii42 t Si232 i $3140 
t PEER _L : S1is2 1 S31i242 t SS150 
i RESFER ? 31186 + Si1276 { 33186 
i EOF t 31220 $ 31210 i $3224 
, INKEY# { Si274 a 31364 t oa2g4 
f CHRS ; 31360 u 31450 t 33382 
t CODE ' 31476 4 31870 a 33502 
t KEYROW ¢ 31614 i 31708 i S3646 
' BEEPING t 31208 ' 31298 i 33208 
i LEN i 31456 i 31548 4 33480 
i DIMN i 31516 : 31610 ' B3542 
1 DAYS i 31690 t 31784 i SS722 
g DATE i 31596 i 31690 t 33422 
t DATES i 31684 i 31778 u S716 
' FILLS : 31378 i 31468 { 33400 
; VERS § 31258 t 31348 i 33266 
u ERR_NC t - i = { 33808 
: ERR _NJ t a i = i $3806 
: ERR_OM ' - : - } 33804 
Hi ERR_OR H = ; = H BS802 
Hi ERR_BO ; = i = H SSR00 
f ERR_NO : - { - i 33798 
t ERR_NE t ee t ves t S3796 
: ERR_EX iH Ge t > i S3794 
H ERR_IU : Ge $ = 1 SS792 
t ERR_EF t “ i s H 33770 
: ERR_DF ' < i = : 33788 
' ERR_BN i - i - i 33786 
} ERR_TE { - } - ' 33784 
: ERR_FF i - i - i 33782 
i ERR_BP H i = t 33780 
i ERR FE ' = f - : 33778 
t ERR_XP t le t ie ; Ba776 
; ERR_OV : ~ t - } SS774 
i ERR_NI ; - : = { Sa772 
i ERR_RO q =~ H = { 33770 
; ERR_BL i = { = ' 33768 
; ERNUM H = ; = ; S38a2 
' ERLIN : = H So i SS896 


EIDERSOFT MEANS BUSINESS 


Eidersoft is pleased to announce a range of hardware and software packages for the professional QL User. 


EIDERSOFT DISK SYSTEM 
Eidersoft 3.5 inch QL Disk Systems are in a class of 
their own. Each system comes complete with a 
package of software that includes I.C.E. (see our 
colour advertising), backup routines, a disk database 
and much more!! What’s more the system is fully 
guaranteed and professional help no more than a 
phone call away. 
SYSTEM 1 128K RAM, Ram Disk, Parallel printer 
port with buffer, |.C.E. + full software, 2 disks, 
TWIN 3.5 Disk Drives with built in PSU and all 
leads and accessories. 
COLOUR Matching QL Black. 
SYSTEM 2 As above with 256K Extra RAM and 
many additional toolkit commands. 
SYSTEM 3 As 1 but with 640K RAM “requires 
return of QL for 7-10 days. 
Full inspection of these high powered units available by 
appointment. 
PRICE INCLUDES 24 Hour Delivery 
** MANY SOFTWARE TITLES 
NOW ON DISK ** 
Please telephone 


€630 £540 £520 


ARCHIVER 

Archiver is a collection of business programs for the 
Psion ARCHIVE™ Database. Archiver programs are 
open to the user and can be modified to suit individual 
requirements. Archiver includes programs for 
INVOICING, STOCK CONTROL (linked), 
APPOINTMENTS and MAILING* as well as many 
useful Archive routines. 

* NOW with QUILL” MAIL MERGE! 

Incredible Value @ £18.95 +£1 P&P 

QSPELL 

QSPELL is the onlyy speling checker availible for Psion 
QUILL”. It contains a dictionnary of 25000 words and 
allows you to add 1000 more. The multi-tasking Editor 
lets you edit your documents in Quill and fullyhighlights 
mistakes. Fully menu driven with inbuilt help screens. 
At only £19.95 + £1 P&P it's at least a % of the price of similar 
specification checkers”. 

PROBLEMS WITH POWER SPIKES? 

The Power clean Masterplug not only filters the mains, 
but provides 4 neat fully fused minature sockets to tidy 
up wiring. It comes complete with a moulded 13 amp 
plug. (grey) ONLY £24.95 complete. 


CREDIT CARDS PHONE 0708 852647 THE OFFICE, HALL FARM, N. OCKENDON, UPMINSTER ESSEX, RM14 3QH 


Please supply 


1.C.E. (£49.95 + £1.50 P&P) / QSPELL (£19.95 + £1 P&P) / ARCHIVER (£18.95 + £1 P&P) 


MASTERPLUG POWER CLEAN (£24.95 + £1 P&P) / LABELS KIT (£24.95 + P&P) 
DISK SYSTEM 1 (£520 inc.) / DISK SYSTEM 2 (£540 inc.) / DISK SYSTEM 3 (£630 inc.) 


Please supply further information on 0 disk systems Oo memory expansion OC software (state title/s) 


STREET 


POSTCODE 
| enclose a cheque/PO made payable to Eidersoft for £ 
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M/D /DISK (State type) 


with an Epson RxI@@+ this would never have hap 


Up to 233 characters per line; NLQ (optional); 100 cps; er 
sheet foerler (apaibnai: Parallel (standard), Serial and IEEE (optional). / 


RX100-+. Fast. Very good print. Very, very, very wide. £399 (+ VAT). 
: EPSON 


The Definitive 


monochrome 


Nine performance-raising programs, free with 
every MEDIC disk drive system. 
(Extra memory recommended.) 


M-PAINT — an amazing new program from MEDIC gives 
you total freedom to draw, design, sketch or paint. You 
can create any image, from a freehand scribble to 
flowcharts and technical drawings. Thousands of 
different effects, stipples, shadings, using a full palette 
of options, cursor-key or mouse-driven. Runs on the 
standard (unexpanded) Sinclair QL. Easy permanent 
print-outs. M-PAINT brings you complete design 
freedom - in brilliant colour. Order your copy now for 
immediate delivery. 


SS 


es A a a a a EEN (Please write Clearly) M-SPELL 
_ To:Medic Datasystems Limited, M-DESK Macintosh-type single-key depression user 
a Tee Ses al ak interface,for instant program switching and utilities 
Please ae me aap copies ainbal eis program selection M-BASE turns Archive into a menu-driven 
on microdrive at £30.00 ea. inc. VAT, plus £1.00 p&p. database with single-key commands M-ACCOUNTS 
ee orn ee aga once ee #1 OO 10! PED fully integrated sales, purchase, nominal ledgers, and 
: stock control M-KEY single-key entry of user-defined 
NAME : textin any program M-SPELL spelling checker 
oo Bo M-MERGE personalised mailshots M-SQUEEZE file 
ADDRESS 2 compression M-BOOT sets up RAM disks in memory 
8 i then automatically loads pre-defined files and programs 
TELEPHONE Code.......-.++- +++ Ne 4 M-TRANSFER microdrive — disk routine. 


‘OL Expansion System. 
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**Medic have set out to 

manufacture the 

definitive expansion 
system and have, toa 

i large extent,succeeded.”” 


0 d f r CJ Please send me the 
r er 0 m MEDIC brochure and 
copies of press reviews, free. 

To order, please tick the items you require. 


All prices include VAT. Add £10 p&p. (£2.95 p&p for orders under £125) 
All orders despatched in strict rotation, delivery guaranteed within 28 days. 


Extra memory Complete systems 
MEDIC systemcartridge with extra 1Mb disk drive, MEDIC | 
memory systemcartridge inc. disk interface, 
256K £169.95 parallel port, integral power supply, | 
Disk interface all cables | 
(if you already have +FREESOFTWARE £249.950 
disk drives) £129.95 2Mb double disk drive, MEDIC 
Dust cover systemcartridge inc. disk interface, 
+ 3 adjustable feet £14.95 ea, port, integral power supply, 

F all cables 
Bars £9950 | FREESOFTWARE £399.95) 
Ten 3'in disks in rigid plastic storage reelh eni ene oe | 
a 4 60.00 Add to complete system | 
Modem” price 64K £50.000 
Add to disk interface or complete 428K £80.00 | 
system price (not sold separately, 256K £110.00 | 
since connects through 512K £200000 
systemcartridge) £120.00 


*not shipped until BT approved 


| enclose cheque/P.O. payable to Medic Datasystems Ltd. in payment for 
the items ticked above, plus £10 p&p (£2.95 p&p for orders under £125), 


System now totalé 

available from [eee ac Sane | 

stock for immediate 
Medic Datasystems Limited ae ye a . 7 a = 
Hackwood Lane, Cliddesden reaper ee ae ica eae cece =<. ae 
Hants RG25 2NH : Address __ = — — — 
Telephone 0256 460692 ss _Telephone _ 


"Please write clearly 


SPECTRUM 


LAI 4p > 


| 


When the QL was launched it was 
claimed that the machine would 
“communicate with the Spectrum 
using the Network facility”. An 
attractive proposition to many 
thousands of Sinclair users, who 
having spent many hours program- 
ming the Spectrum, were looking for 
a compatible upgrade over to which 
they could port their BASIC pro- 
ams. 

Well, there was an element of 
truth in the claim! The QL can 
communicate but not via the Net- 
work port. The necessary firmware 
has not yet been implemented 
(Turkish version of the MG ROM 
excepted). Simple commands such 
as SAVE Neto_1 at the QL end, 
and LOAD *“n”;0 at the Spectrum 
end simply do not work. Nor do a 
variety of possible permutations. 

However, in common with many 
computers the QL does incorporate 
an RS232C port and at the Spectrum 
end, a similar port is available, 
providing you own a Sinclair Inter- 
face 1. So the idea of transferring 
Spectrum BASIC programs to the 
QL, updating them free from any 
attribute problems and other de- 
lights that Superbasic gives us, is 
still feasible. Indeed, several pro- 
grams have appeared in various 
magazines that have shown con- 
siderable promise in this area. 

Unfortunately, when these pro- 
grams were typed in and RUN, they 
had one of two things in common — 
either parts of the program did not 
work or data was corrupted in the 
course of transfer. In the latter case, 
this invariably meant that the QL 
would freeze up so that you had to 
hit RESET button and lose every- 
thing. In our case replacing both QL 
(now with a JM ROM) and Spectrum 
interface reduced the incidence of 
corruption but failed to eliminate it 
altogether. The programs remained 
unworkable so we decided to go it 
alone and write our own program 
(called Spectrum__bas) 

Although the program (listed be- 
low) is designed for one-way com- 
munication from Spectrum to QL, 
such is the nature of the RS232 link 


In the first in a series that 


links the Spectrum to the QL 


L A Privett reveals the secrets 
to a trouble free transfer. 


that two way communication is 


possible. This would require a simi- 
lar program to be written for the 
Spectrum and would enable one to 
send programs, data and so on from 
the QL to a file on the ZX Micro- 
drive. However, as files transferred 
would be of a DATA type and trying 
to load them into the Spectrum as 
programs would fail with the error 
wrong file type, the only benefit to be 
derived here would be access to 
cheap and fairly reliable cassette 
storage. When microdrive car- 
tridges were £5 a shot this might 
well have been worthwhile. Today 
when microdrives are equally 
reliable, very much faster and 
cheaper in terms of storage capacity 
such a course of action is no longer 
justified. 

Onto the program itself. It has 
been designed for use with a JM 
version of the QL and interface 1 
(version 1). We mention this because 
later versions of the interface have 
had some slight improvements made 
regarding the network facility or so 
we are led to believe. If you wish to 
know which version you have you 
enter: 

CLOSE#1:PRINT PEEK 23729 
directly into the Spectrum, a value 
of 0 indicates that a version 1 ROM 
has been installed and anything else 
refers to a later version. Either way 
as the RS232 connection has not 
been altered this program should 
work without hitch. 

Connectors to the RS232 ports at 
both ends are non-standard. A suit- 
able lead must therefore be made up. 
Most QL users will have received a 
free Printer lead from Sinclair. This 
may be adapted to fit interface 1. 
Remove the connector at the printer 
end and replace it with what is 
known as a 9 pin ‘D’ type male plug. 
Wiring up instructions are given 
below. The colours on the left refer 
to the cables that come from the new 
telephone type plug (supplied by 
Sinclair) that fits the various ports 
at the back of the QL. The Spectrum 
numbers are the pin numbers on the 
D type plug and will need to be 
soldered into place. An electrician 


CONNECTIONS 


should be able to do this if you do not 
feel confident enough to risk burnt 
fingers and blobs of solder all over 
the living room carpet as previous 
experience has shown. 


serl RS 232 
GREEN 2 
WHITE 3 
RED 4 
BLUE 5 
BLACK 7 


Once correctly wired and connected, 
the lead may be tested as follows: | 


Step 1: ENTER the command COPY 
SER1 TO SCR_ on your QL 


Step 2: Run the following program 
on your Spectrum 

10 FORMAT “T” ; 9600 

20 OPEN #4;“T” 

30 LIST #4 

40 . CLOSE #4 


Result: The program given in step 2 
will be listed on the QL’s screen. 

Having satisfied yourself that the 
lead works you should be in a 
position to use our Spectrum_bas 
program. This will enable you to 
transfer your favourite. Spectrum 
BASIC programs to a file on the 
QL’s microdrives and then, at your 
leisure, correct any incompati- 
bilities between Spectrum BASIC 
and QL SuperBasic using the QL’s 
built-in editor. Incompatibilites fall 
into two categories. 

First, there are the lines high- 
lighted with the keyword MIStake 
at their start. Easily identified, 
these are errors where a com- 
mand is the same in both dialects 
but it’s usage differs. Keywords 
LINE, AT and FORMAT fall into 
this category. 

The second incompatibility is 
where a command has not been 
implemented in SuperBasic. Spec- 
trum keywords such as PLOT, 
LPRINT, MERGE, BIN and DRAW 
fall into this category. Such errors 
materialise only when the program 
is RUN and generate the error 
message ‘bad name’ as the QL’s 
interpreter classes them as unde- 
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fined procedures. Whilst not im- 
mediately apparent they are easily 
rectified by defining your own ‘con- 
version’ procedures within the body 
of your program. For example, 


LPRINT “This is just an 
example” 


would be acceptable on the QL 
provided the following procedure 
has been added: 


DEFine procedure LPRINT 
(text$) 

OPEN #7, serlz 

PRINT #7, text$ 

CLOSE #7 

END DEFine 


The procedure for using spectrum_ 
basis as follows: 


Step 1: Reset both Spectrum and QL 


Step 2: [Spectrum] Load the pro- 
gram you wish to transfer across to 
the QL. 


Step 3: [QL] Load and run (LRUN) 
spectrum_bas program ensuring 
that there is a formated cartridge in 
mdv2_. 

Step 4: [Spectrum] On the QL’s 
screen you will be prompted to enter 
commands to control transmission 
using interfacel. These commands 
relate to FORMAT, BAUD sate, 
Binary and Text transmission chan- 
nels. They should be typed in on 
your Spectrum as a single contin- 
uous line with each statement separ- 
ated by a colon. 


Step 5: [QL] On the QL press the 
space bar. This will cause mdv2_ to 
start whirring as the QL readies 
itself to transfer information re- 
cieved via the RS232 port to a file 
called tempfile opened on mdv2_. 
Step 6: (QL] When transmission has 
ended, you will be prompted to enter 
an arbitrary filename. When you 
have done so a permanent file will be 
opened in that name followed by the 
postfix _bas. For example, if you 
enter myfile, the program creates a 
file called myfile_bas. After this the 
contents of tempfile will be verified 
and then copied across to myfile_bas. 
Step 7: [QL] You may now LOAD or 
RUN the permanent file (ie myfile_ 
bas) just as you would any other 
SuperBasic program. However, for 
reasons given earlier it is very likely 
that the program will require debug- 
ging using the QL’s built-in Super- 
Basic editor to remove incompati- 
bilities between the two BASICs. 

If we examine spectrum_bas in 
detail we see that it breaks down 
into three main procedures. The 
first, Instruct sets the screen size 
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100 REMark #HEEEERESEERESERERERREREEEAE ELE 

110 REMark ##* = QL User 1985 +tt 

120 REMark ## Spectrum_bas by L Privett ## 

130 REMark ### L.A. PRIVETT, +t 

140 REMark #HEdEREEERAESERSERESELETEDEEEEE 

150: 

140 INSTRUCT 

170 START 

180 CORRECT 

190 STOP 

200: 

210 DEFine PROCedure INSTRUCT 

220 MODE 4: WINDOW 512,220,0,0:BORDER 15,0:CLS: INK 
4:CSIZE 2,0 

230 PRINT\\’ SPECTRUM BASIC LOADER’ \\\ 

240 PRINT\ PLACE DESIRED CARTRIDGE IN MDV2 SLOT.’ 


1250 PRINT\ PRESS A KEY TO CONTINUE. ':PAUSE 


260 END DEFine 
270: 
280 DEFine PROCedure CORRECT 
290 INPUT#OQ; ‘PLEASE ENTER NAME FOR PERMANENT FILE 
";FILE$ 
300 OPEN_IN #4,mdv2_TEMPFILE 
310 OPEN_NEW 45, NDV2_ ‘&FILE$&’ BAS” 
320 CLS4#0 
350 AT 4,4:PRINT' Please wait while Mdv2 is accesse 
It may take awhile 
LET 1=1 
REPeat TRANSFER 
IF EOF (#4) THEN EXIT TRANSFER 
LET SPECTRUMS=INKEYS (#4) 
LET SPECTRUM=CODE (SPECTRUM$) 
SELect ON SPECTRUM 
=32 T0191 
PRINTAS, SPECTRUM 
=13 
PRINT#S ,CHRS(10)s 
ATH ,10,4 
PRINT#1, ‘Line ‘31;' completed ° 
1=1+} 
=192 10 255 
PRINT#S,' ss: {3 
0 END SELect 
500 END REPeat TRANSFER 
ms 
520 PRINT\' 
30 CLOSE#4 
940 CLOSESS 
550 pa 
560 PRINT\' NOW DELETING TEMPFILE'\ 
970 DELETE adv2_TEMPFILE:pa 
580 PRINT\' PROCEEDURE COMPLETED’ 
590 pa:CLS:DIR MDV2_ 
600 END DEFine CORRECT 
610: 
620 DEFine PROCedure pa 
630 FOR #=1 TO 10:PAUSE SO:NEXT ¢ 
640 END DEFine 
650 : 
660 DEFine PROCedure START 
670 CLS 
680 CSIZE 1,0:INK 4 
690 PRINT'ENTER AS DIRECT COMMANDS ON THE ZX S 
PECTRUM. “\\: INK 7 
PRINT FORMAT "B";9600\\ 
PRINT OPEN#4;"T" ; OPENS; "B""\\ 
PRINT LIST#4 : PRINT#S; CHR$ (26) ‘\\ 
PRINT'CLOSE#4 : CLOSE#S \\\:INK 2 
PRINT'PRESS & KEY WHEN READY. ‘\\:PAUSE: INK 


NOW CLOSING FILES’ 


PRINT'NOW OPENING FILE ON MDV2° 
PRINT’ AND COPYING PROGRAM ONTO’\ 'TEMPFILE. 


COPY seriz TO mdv2_TEMPFILE: INK 7 
pa 
PRINT ‘COPYING FINISHED. ‘\ PRESS A KEY TO 
B CONTINUE. * 
800 PAUSE : CLS 
810 END DEFine 
820 : 


and tells you where to put the 
cartridge (no rude comments please) 
that is to contain the program. After 
this, the Start procedure first tells 
you what commands to enter into 
the Spectrum and then opens a file 
(Tempfile) on mdv2_. This copies the 
listing sent by the Spectrum on the 
serial link to Tempfile. It will close 
the file automatically when the QL 
has received a ‘End of File’ code 
(CHR$ (26)) or if the QL is stopped 
using CRTL & SPACE, this is the 
reason the second channel is opened 
on the Spectrum to send this code as 
an EOF is not normally sent on the 
“T” channel (at least not on ours). 

The last procedure Correct after 
asking for a file name, reopens 
Tempfile and transfers its contents 
to a permanent file. In the course of 
the repeat loop transfer it weeds out 
newline errors replacing the Spec- 
trum’s Line Feed & Carriage Return 
code (CHR$(13)) with the corres- 
ponding code on the QL (CHR$(10)). 
Other checks could be inserted here 
such as replacing CHR$(39) (a Spec- 
trum separator) with CHR$(92) (a 
QL separator). 

The procedure correct will dis- 
play which lines are currently being 
converted (PRINT #1, ‘LINE ’;1; 
‘COMPLETED ’). Users converting 
large files should be prepared to wait 
two or more minutes (depending on 
size of file) for this to be completed. 
Once finished, Tempfile is deleted 
and a directory of the cartridge is 
produced. Thereafter the permanent 
file can then be loaded as a Basic 
program and the other errors or 
mistakes that might occur can be 
edited using the Superbasic editor. 

Whilst the transfer process 
adopted in spectrum_bas may seem 
unnecessarily long-winded they do 
ensure virtually trouble-free conver- 
sion. The longest program that we 
managed to transfer successfully 
across to the QL was a complex 25K 
inventory control containing in- 
numerable data statements. The 
process took two hours including 
debugging using the QUL’s editor. 
Had the program been typed in 
manually it would have taken at 
ae two days to reproduce it on the 


Connectors: D range 9 way plug 
68p, D range 9 way protective cover 
95p, available from Maplin Electro- 
nic Supplies Ltd 0702-552911 


Next month Rob Miles explains how to transfer 
your favourite arcade screens from Spectrum 
to QL. 


New horizons for your microcomputer from CAMBRIDGE 
SYSTEMS TECHNOLOGY, the dedicated specialists in ex- 
pansion peripherals for the Sinclair QL. 


CST who were the first on the market with a disc drive 
controller, a Centronics port and a fully operational IEEE-488 
interface, now offer the Q+4 multi-way expansion module. 
With four fully-buffered ports, the Q+4 is fully compatible 
with QL add-ons and features a controller ROM functioning 
with any version of the QL operating system. Built into a 
rugged matching case, the Q+4 is designed to sit beneath 
the computer. 


_The CST Q-disc is the first controller to allow standard 
isc drives to be connected to the Sinclair QL, via 
QL expansion port. The Q-disc offers extensive file 
ig. and random access facilities plus an essen- 
tial utility disc and a comprehensive 


. manual. 
Bs ‘The _Q-488 is a fully implemented 
“a IEEE-488 interface which per- 
< mits the Sinclair QL to com- 


municate with scientific 
and industrial equip- 
ment offering exten- 
sive help facilities 


plus compre- 
hensive error 
checking. 


> 


rc 


Close on the heels of their Q-disc 
interface and Plus 4 expansion 
unit, CST have announced the first 
QL Winchester hard disk system. 
Paul Hickling previews this 
technological marvel, as well as 
Technology Research’s disk 
interface. 


on to a computer that now costs less 
than £200 may, at first sight, seem 
more than a little strange. CST took 
the decision to develop their hard 
disk drive after market research 
indicated that some QL owners (at 
least) would be prepared to part with 
this sort of money to equip their 
machine with 10Mb of mass storage. 
The system demonstrated to us was 
one of two early production models, 
housed in an anonymous black box. 
Final versions will be livened up by 
the addition of silk screen legends 
and two LEDs to indicate operating 
status. 

. As far as the user is concerned a 
hard disk drive behaves in the same 
way as a standard floppy drive; it 
just offers far more storage: In the 
case of the basic CST system, some 
19,000 sectors provide 10Mb of store 
(the company will be able to supply 
custom systems offering storage in 
excess of this figure). 

Hard disk drives use the same 
magnetic storage systems as em- 
ployed in floppy disk drives, the 
much increased storage density is 
accounted for by the fact that the 
mechanics of a hard disk unit do not 
have to allow for the inter- 
changeability of disks. A hard disk, 
of the type used by CST, is a sealed 
unit. This allows for greater preci- 
sion in the construction of the unit 
and hence the much-improved stor- 
age capacity. 

The hard disk system is supplied 
in two parts, the hard disk drive 
itself and a QL expansion card 
which houses the system firmware 
and some additional interface ‘lec- 
tronics. Although a minimum sys- 
tem could be built around only the 
QL and the hard disk, it is more 
than likely that the disk drive will 
be used as part of a larger system — 
CST demonstrated the disk drive in 
conjunction with their Plus 4 expan- 
| sion system and a floppy disk inter- 
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Paying around £1,200 for an add-: 


HarDw 


face and standard 514” disk drives. 

Users of floppy disk systems will 
be familiar with the need to back up 
data on a regular basis; although not 
all users are attentive to the need to 
keep back-up disks. With a hard 
disk, and up to 10Mb of data on 
a single disk, the need to back-up 
is vital. 

The CST drive is supplied with an 
intelligent back-up program. This 
will allow either the entire contents 
of the disk to be backed up to 
floppies, or indeed microdrives. This 
operation, for a disk that held even 
half its maximum capacity, would be 
a rather time consuming affair. The 
system thus provides a facility by 
which only those files created since 
the last back-up date will be copied. 
It is here that the intelligent aspect 
of the back-up software becomes 
apparent. When a back-up is initi- 
ated, the disk drive first checks the 
QL clock. If the time read back is 
arbitrary, the back-up firmware will 
simply add one second to the time 


RE 


held in its memory and proceed with 
the process. This avoids the possibil- 
ity of the clock going back in time. 

In addition to the need to make 
back-ups of the data stored on the 
disk, the fact that the disk unit is 
fixed will mean that as its storage 
capacity is reached, users will have 
to back-up the data that is not in 
current use. In most applications 
though it will take a considerable 
time before this limitation becomes 
a problem. 

Other statistics relating to the 
drive are as impressive as its storage 
capacity. Supporting up to 630 files, 
the maximum data transfer rate is 
1.6uS per byte and means that files 
are loaded into the QL’s memory in 
times that are significantly faster 
than those associated with floppy 
systems. 

CST first demonstrated the sys- 
tem at the PCW show and are 
‘talking’ to Sinclair about the possi- 
bility of them marketing a badge 
engineered version of the system. 


HORIZONS 


. 


CST are considering enhancing the 
performance of the system as dem- 
onstrated to QL User in a number of 
ways. One of these is the provision of 
a hierarchical file structure (a la 
OS9). In view of the number of files 
catered for within the system this 
feature would add considerably to its 


ease of use. However, the CST hard 
disk system is not likely to appeal to 
many hobbyist users of the QL, it’s 
more for the business/professional 
environment. 

CST are first to the market with a 
system that can meet the needs of 
certain users. Such hardware is not 
fodder for the mass market, but it 
will meet a real need for some QL 
users. 


Delta Interface 


Technology Research’s Delta Inter- 
face, could perhaps be thought of as 
a ‘value added’ package. The system 
provides not only a disk interface 
supporting up to four drives in any 
of the common sizes (5'%", 31”) or 
the not so common (3”), but also a 
Centronics parallel port and a ‘RAM 
disk’ driver. 

The interface plugs into the ex- 
pansion slot on the left hand side of 
the QL, or into an appropriate slot 
on an expansion system if one is 
fitted. The manual supplies clear 
instructions detailing the installa- 
tion procedure and few users should 
have any problems in hooking up 
the Delta system. 


* 


Top left: CST’s Plus 4 
Expansion unit used as 
interface for their hard 
disk. 

Above: The Delta 
Interface from 
Technology Research. 


Powering up the QL with the 
Delta interface connected means 
both the floppy disks and the RAM 
disk may be accessed by commands 
following the standard Sinclair syn- 
tax (replacing the mdv device name 
with either ‘flip’ or ‘ram’). 

The firmware supplied with the 
disk interface has some useful fea- 
tures. The FORMAT utility, for 


example, is able to detect the physi- 
cal specification of the drives con- 
nected to the interface. An 
FLP_USE command will allow the 
default name of the disk system to 
be altered. The most likely applica- 
tion for this facility is to change the 
name of the disk system to ‘mdv’. 
This will mean that any program 
containing calls to the microdrives 
will now instead look to the disks for 
the files. 

The RAM disk driver supported by 
the Delta interface allows areas of 
the QL’s memory to be treated in 
exactly the same way as either 
microdrives or floppy disks — a RAM 
disk can recover data far faster than 
other forms of mass storage as it 
makes use of semiconductor, rather 
than the magnetic/mechanical sys- 
tems. 

To create a RAM disk the com- 
mand FORMAT is used — for exam- 
ple the command FORMAT 
ram2_80 would create a logical stor- 
age device with the name ‘ram2’ 
which would provide 80 sectors of 
storage. 

The printer interface that forms 
part of the Delta board has the 
device driver name of par (device 
drivers allow all inputs and outputs 
to be treated in a similar way — the 
QL’s QDOS operating system is not 
concerned about the physical char- 
acteristics of any device connected to 
it, but relies on device drivers associ- 
ated with each peripheral to write or 
read to the logical files manipulated 
by QDOS. This allows add-ons, such 
as the Delta interface, to be inte- 
grated within the QL’s command 
structure). The default setting 
associated with it sends a line feed 
at the end of each line and has a 
buffer of 80 bytes. While it is only 
possible to open one print port at any 
one time, it’s possible to have a 
number of print files pending with- 
out typing up the driver. The Delta 
also allows for up to 128K of extra 
RAM to be fitted to the QL in 64K 
byte chunks. 

The Delta interface is a versatile 
unit that supports a well thought 
out disk interface system together 
with other features that add to the 
QL’s overall performance. The RAM 
disk will be of particular interest to 
any users who run applications soft- 
ware that makes frequent calls to 
‘disk’. In these cases the RAM disk 
could considerably increase the sys- 
tem’s performance. 
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4D LD 4D LD 4 4D 4 4 7, 


UNIT 14, PEERGLOW INDUSTRIAL ESTATE, OLD’S APPROACH, TOLPITS LANE, WATFORD, HERTS 


: PHILIPS COLOUR © 


TV/MONITORS %* *& SUPER VALUE 
85 CHARACTERS | MONO 
PER LINE ANTI-GLARE SCREEN 
HIGH RESOLUTION 
* * FREE GREEN MODEL BM7502 
LEADS SUPPLIED £81.65(a) inc. VAT 
FOR USE WITH QL 


%* x SUPER VALUE 


MEDIUM RESOLUTION 
14” MODEL 14CT2006 £253(a) inc. VAT 


DON’T BUY A COLOUR MONITOR!! 
HAVE YOUR 14’ & 16” PHILIPS AND PYE 
COLOUR TV CONVERTED TO A TV/MONITOR 
REMOTE AND STANDARD TVs 
ONLY £69(a) inc. VAT 
RGB CONVERSION KIT 
ONLY £55.20(d) inc. VAT 
* Resolution better than 585 x 450 pixels 
* Image clarity comparable to leading monitors 


* Includes RGB lead for connecting with BBC/QL 
* Conversions carried out at our workshops within 2/3 days 


REMOTE CONTROL 
14” MODEL 14CT2206 £282.90(a) inc. VAT 
16” MODEL 16CT2216 £311.65(a) inc. VAT 


We can supply up to 26” TV/Monitors — 
please ring for details 


**xQL TOOLKIT ROMx* * 
IN CARTRIDGE FORMAT 
Instant access to Utilities 


via ROM socket on QL 


PRINTER INTERFACE 
QL SERIAL TO PARALLEL 
BAUD RATE SWITCHABLE 


Only £29.90(d) inc. VAT 


ROM CARTRIDGES 


ES 


i. a cossnnnen Reet inc. al DRIVES ANY CENTRONICS PRINTER 
; — .75(c) inc. STANDARD ...cescseseseeceseeeeeee £40.25(d) inc. VAT 
O TEL: 0923777155 | yop £52.90(c) inc. VAT | DELUXE ....ssssssssssesnstenseen £50.06(d) inc. VAT 


By post - enclose your cheque/PO made payable to CARE Electronics. Or use your 
Mona HOW TO ORDER: access. allow 7 days for delivery. Please add carriage: (a) £8; (b) £5; (c) £1; (d) £2. 


OPEN: 9am-5pm Monday to Thursday — 9am-4pm Friday and Saturday 


War ma a a a a a 


Disc drive specialists Opus announce some great 
| Pe D -news for QL owners — a choice of two disc drive 
and interface combinations for the QL producing 
1 Megabyte or 2 Megabyte disc systems 
at prices which put the competition into cold 
storage. 
We've paired up two of our best-selling disc drives 


1 MEGABYTE SYSTEM 2MEGABYTE SYSTEM Witt aremaricble double density interface to 


for the QL which are microdrive compatible. 
£24995 i inc VAT £349.95 i inc VAT Our advanced Japanese drives provide fast access 
Double density QL interface Double density QL interface times and carry the U.K’s longest guarantee — a 
Opus 5802 5'4" double-sided 80 + Opus 5802 5%" dual disc drive full TWO YEARS. Our advanced disc interface will 
track disc drive with power supply with power supply run all current QL software programs including 


the PSION package, features utilities on ROM and 
supports Random Access Files. Our prices include a 
full operating manual, VAT and FREE DELIVERY. 
To order your QL disc system ring us on 
0737-65080 or simply post the coupon now. 
I To: Opus Supplies Ltd, 55 Ormside Way, Holmethorpe 
j Industrial Estate, Redhill, Surrey. 

l Please rush me the following: 

I 


|_1 1 Megabyte system(s) at £249.95 each 
} | 2 Megabyte system(s) at £349.95 each 
| enclose a cheque for______ or please debit my 


I credit card account with the amount of 


i My Access|_] Barclaycard (tick) no. is 

| 

4 Name 
i 


Address 
I 
I 


] Telephone 
| 


QL10 


Opus. 
Opus Supplies Ltd. 
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Nicky Trevett assesses the 
latest additions to an 


acclaimed series. 


The thirst for knowledge 
among QL users is never 
ending, if the constant stream 
of new books about the QL is 
anything to judge by. 

In 1984, Hutchinson 
published its well-regarded 
Sinclair QL Series, five books 
covering SuperBasic 
programming, word 
processing and introductions 
to QL computing. 

Hutchinson has now 
launched five more books in 
the series, edited as before by 
Robin Bradbeer and all 
featuring introductions (the 
same one) written by Nigel 
Searle, ex-managing director 
at Sinclair Research. The 
books deal with graphics, 
database management, 
spreadsheets, machine code 
and SuperBasic programming 
on the QL, and each costs 
£7.95. 


Déja Vu 

To take perhaps the most 
unexpected title first, Making 
the Most of the QL is another 
way of saying Another Book 
about SuperBasic 
Programming. As the series 
already boasts two books 
about SuperBasic 
programming, it was difficult 
at first to see where a third 
could fit in. In fact, it 
complements the other two 
quite well. 

Written by Dick Meadows, 
the book is intended to act asa 
practical quide to using and 
programming the QL, claimed 
to be aimed at both the 
newcomer and more 
experienced user. 

I wish authors wouldn’t do 
that; the needs of the novice 
programmer are likely to be 
quite different from those of 
the veteran, and it is almost 


= 


impossible to cater adequately 
for both in one volume. This 
particular book I would say is 
far better suited to the user 
already familiar with the 
principles of Basic and 
SuperBasic. 

Its first two chapters offer a 
competent summary of the 
essential commands and 
statements of SuperBasic, 
with the first chapter 
including a look at the 
managing of cartridges, 
microdrives and printers, and 
the second covering all the 
major concepts and 
techniques. This part of the 
book could be used as an 
excellent refresher course in 
SuperBasic programming and, 
taken with the comprehensive 
index, as a useful reference 
guide. 

The remaining five chapters 
are given over to practical 
application programming, 
with numerous examples. One 
section, for example, provides 
a series of handy little 
general-use programs, 
including converting units 
and currency exchange, 
checking bills, working out 
how to pay off a loan, 
calculating your income tax, 


BOOKMARKS 


profit, loss and VAT 
calculations, and so on. 

Other chapters deal with 
graphs and graph plotting, 
sorting and statistics, science 
and engineering applications, 
and solving equations. 

The book is lucid and well 
presented, and should prove 
ideal reading for anyone who 
needs to brush up their 
programming skills and/or put 
those skills to work. 


Low Level Prose 


Still on the subject of 
programming but on a rather 
different level, Martin 
Gandoff, who, incidentally, 
wrote the earlier Advanced 
Programming with the 
Sinclair QL, has written 
Machine Code Programming 
on the Sinclair QL for those 
who would like to take the 
plunge into this more complex 
area. 

In a long and chatty 
author’s preface, Martin 
Gandoff ponders the scope of 
his work, explaining that his 
aim was to write “a fairly 
simple book of a reasonable 
size by missing out some of the 


difficult bits”. This is more or 


less what he has done, coming 
up with a readable 
introduction to machine code, 
the 68008 chip and QDOS 
which should enable the 
reader already familiar with 
SuperBasic to write machine 
code programs and sub- 
routines for applications 
which are slow or clumsy for a 
high level language. 

The book starts with a 
simplified look at the workings 
of the processor which also 
acts as a painless introduction 
to ‘number systems’, moving 
on to logic operations and 
machine code format. There is 
a short chapter on SuperBasic, 
designed to show in what 
circumstances you might want 
to use machine code ina 
program. 

Later chapters deal with 
68008 machine code and 
assembly language, including 
the Metacomco assembler 
development kit, addressing 
modes, instructions, system 
control, exceptions processing 
and QDOS, and finally sub- 
routines, programs and jobs. 

The main appendix 
comprises a summary of 68008 
instruction formats, 
reproduced from the Motorola 
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M68008 16/32-bit 
microprocessor programmer’s 
reference manual, and there is 
a full index. 

This is a relaxed and 
accessible contribution to the 
growing number of books on 
the subject of machine code 
programming, recommended 
to anyone who wants to get 
better acquainted with the QL. 


In For A Penny... 


Profiting from the Sinclair QL 
sounds an irresistible title. In 
fact, this book by Barry Miles 
looks at ways of getting the 
most out of the Abacus 
package. 

It’s aimed at both the 
newcomer to Abacus and the 
more experienced user, and in 
this case the approach works 
quite well. Chapters one to 
three are given over to 
introductions to spreadsheets 
and to the QL, and this bit can 
be skipped if necessary. 
Chapters four to twelve work 
through Abacus itself, and 
finally there is a lengthy 
section looking at practical 
applications — the bit that 
justifies the title! 

Barry Miles adopts a 


sensible step-by-step approach 
to Abacus which looks at the 
package much as a user would 
see it, starting with loading 
and moving on to describe 
what the user should expect to 
see on the screen. There are 
actual ‘screen shots’ to 
illustrate the text, 
particularly useful for 
newcomers. 

There should be something 
for everyone in the final 
chapter on applications, which 
include ‘general’ applications 
like cost volume profit 
analysis, and more specialized 
users, like calculating your 
cricket batting average! The 
earlier applications are 
explained thoroughly, the 
later ones less so, on the 
assumption that by the time 
you reach them you know 
what you are doing. Other 
applications that should be of 
interest to spreadsheet users 
are depreciation calculations, 
capital allowances and 
investment appraisals. All are 
well illustrated with printer 
dumps. 

Like most of the books in 
the series, the text is well 
organized and clearly written, 
and the book can be 


recommended to all serious 
Abacus users. 


Practical Primer 


As the author of Database 
Management on the Sinclair 
QL points out, the problem 
with any powerful database 
packages is the fact that they 
are seen as difficult to use by 
people without extensive 
programming experience, 
Author Mike O’Reilly sets out 
to put the record straight. 

He describes his book as a 
practical primer on using 
Archive, aimed at QL users 
who have either found the 
program hard to get to grips 
with, or who might not 
appreciate Archive’s full 
potential. He insists right 
from the start that “only a 
smattering” of programming 
know-how is required to 
exploit the program. 

The first chapter is an 
introduction to databases in 
general, explaining the jargon 
and the basic principles, 
followed by several chapters 
on creating an Archive 
database. Like Barry Miles’ 
book on spreadsheets, a 
careful step-by-step approach 


is taken with plenty of 
pictures of the screen, 
designed to show exactly what 
the user should expect to see 
at each stage. 

The rest of the book deals 
with programming in Archive, 
the difficult bit, although it 
turns out not to be so difficult 
after all. The book assumes 
very little programming 
knowledge, although if you 
already understand 
SuperBasic procedures you'll 
find this section easier still. 
Topics like printing, nested 
statements, menus, screen 
design, dynamic screen 
displays and multiple files are 
covered in this part of the 
book. 

There is, as usual, a good 
index, and also a glossary of 
database and computing 
terms. 


Picture Book 


To round off the series, a book 
devoted to graphics on the QL. 
Garry Marshall’s Using 
Graphics on the Sinclair QL is 
aimed at both new and 
experienced users, and sets 
out to show how graphics can 
be created on the QL, whether 
via SuperBasic or by using 
Easel. This is an extremely 
sensible way of dealing with 
the question of graphics, not 
always adopted by books on 
Easel which often ignore the 
role which can be played by 
SuperBasic. 

The book starts with a 
discussion on the applications 
of graphics and some thoughts 
on when you should use 
SuperBasic, and when Easel is 
more appropriate. There’s a 
‘Getting started’ section, 
followed by a look at the 
workings of Easel, including 
the way it communicates with 
Abacus and Archive. 

Most of the book, however, 
is given over to graphics 
creaded using SuperBasic. 
This includes such matters as 
line graphics, windows, turtle 
graphics, 3D graphics, evena 
section on problem-solving — 
like finding the way through a 
maze. 

At the back, there’s a small 
but useful chapter 
summarizing the graphics 
facilities provided by the QL. 
There’s also the same glossary 
that appears in Database 
Management on the QL — 
which, incidentally, contains a 
particularly apt definition of 
IBM (Incredibly Big 
Multinational company!). 
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CONTAGQGLLE DBD 


EN ViR @ NM EN th 


ICE makes all of the day to day tedious computer housekeeping (eg. deleting and copying files) you need 
to do simplicity itself. By using pictures (Icons) to represent the functions you want and the files on your disk 


or microdrive, all you have to do is point and click, instead of typing reams of mysterious commands. ICE 


is extremely powerful and can take action on many files at the same time, saving you hours each week! ICE 


gives you an inbuilt multitasking clock, calendar and calculator for up to the minute efficiency. 
ICE also includes the powerful CHOice tasking software that allows you to run several programs 
simultaneously! 
ICE comes on EPROM cartridge that plugs into the cartridge ROM port 
at the rear of the QL. 


ICE uses next to no user RAM! /WICE is always available to the user instantly no 
need to load from microdrive or disk /"VICE is fully compatible with the Psion™ 


applications and most QL commercial software “ICE is fully compatible with 


Superbasic programs and can be called from Superbasic | “ICE is fully compatible 
with microdrives, disk drives and RAM disks ““ICE can be used in conjunction with 


the cursor keys, a joystick ora mouse “ICE is multitasking! | ICE is only £49.95. 


Designed by John Knight Publicity Lid, London. 


QSPELL x Puzzle section allows you to @L JOYSTICKS 

Qspell is a proof reader and solve crosswords, anagrams Ideal for ICE or QL Games 

spelling checker for QUILL™ and puzzles pe oophic pisces 

with many advanced features. isles ee machine an aren © Puencsed with 
d code sort routines = 

including 1000 user words." Fully Menu Driven with Help | €,SURESHOT Fully Micro 

x Greate your Own dictionary files @L QUICKSHOT Ideal for 

* Multitasking Quill Editor.” Amazing Value at £49.95 Games £13.95 


ARCHIVER £418.95 


Archiver is a collection of 
business programs for Psion 
ARCHIVE™, 

«Invoicing «Stock Control 
* Mailing x Appointments 


Archiver lets you use the real power of 
the Archive Database 

You may change the Archiver programs 
to your own taste easily 


Archiver comes with a 48 
page user and technical 
manual. : : 
Please write or telephone fo *x@L ARCHIVE BOOK 
full details by lan Muarry (356 pages) 


NOW WITH MAILMERGE Compare boat ACen Only 


£14.95 from Eidersoft 


EIDERSOFT 0708 852647 Telex 8951807 
Trade Enquiries Welcome 


Psion, Quill and Archive are trademarks of Psion Ltd. 


teens zgftoos suirssos . oh, 


ZAPPER 68008 Arcade Action 
Zap your way through scores of 
aliens in this multi-level 100% 
machine code QL arcade game 


TV/Monitor 
Cursor/Joystick £40.95 


BRN CREDIT CARDS 0708 852647 8am — 8pm 


EIDERSOFT THE OFFICE, HALL FARM, NORTH OCKENDON, UPMINSTER, ESSEX RM414 3QH. 


Please supply the following items:- 


‘| Multitasking clock 
7 full range of 
QDOS functions 


Intelligent error 
messages 


Folders allow action 
on multiple files 
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Multi-task a number of 
programs (memo 
rmitting) using 
lasking software with 
mallmerge 


POSIGCOGDS oe isscssccpscsssssechsssressts 


INGUIN isgecespeeesccreccesecstoceeereereet terres er om rebecca 
INCI OSS i ororscen eerie reps erie ee i cs areata ep ac ee Rte ee a aaa 


( tick if you require disk drive system information 


HOice 


| enclose a cheque/POlcard no. for £ ................ 


CO tick if you require ARCHIVER information 


Haul up the Jolly Roger and be prepared to walk 
the gang plank as Sinclair User does an exposé on 
the software pirates. 


We investigate the cut-throat world of illegal 
taping, and ask why attempts to prevent it have 
been so unsuccessful. 


Plus that old salty seadog himself, Popeye: A 
swashbuckling games review. 


And the man whose caused more cutlasses to be 
drawn in anger than Captain Blood; Gremlin — 
with another intriguing insight into the spoils of the 
computer industry. 


Allin October’s issue of Sinclair User. 
Onsale September 18th. Atall 
newsagents. You'll be washed 
up without it. 


Britain’s best selling computer magazine 
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COMPUTER ANATOMY 


( 


The internal electronics 
inside most computers 
is beyond the average 
hacker. A sound 
knowledge of the basic 
building blocks isn’t . . . 


A machine's firmware is 
software built into the computer 
which is available as soon as 
the machine is switched on. 
With the QL, this means the 
SuperBasic interpreter, the 
QDOS operating system, and 
‘device drivers’ to control the 
screen, serial ports and mdv's. 
Firmware is stored inside the 
QL on a special kind of memory 
device called a ROM. This 
stands for ‘Read-Only Memory’. 
Once it has been programmed 
with the software, it holds it 
internally forever, and even 


. switching off the machine will 


not remove it. Perhaps this is 
why software in this form is 
known as ‘firmware’ — it is firmly 
in place! 

When you switch your QL on 
there is a noticeable delay 
before the microdrives whirr. 
This is when QDOS takes stock. 
It goes around the machine, 
seeing how much memory is 
available, what peripheral 
devices are attached and what 
built-in routines the SuperBasic 
interpreter is to know about. 
This process is known as 
initialisation and once complete 
QDOS then tries to read a 
BASIC program called ‘BOOT’ 
from microdrive 1 (this isn’t 
strictly true, as we'll see later). 


- From this point on, the machine 


is inthe hands of the 


~ SuperBasic interpreter, and by 
flashing a cursor at us.on the 


screen indicates its presence. 
This interpreter has a special 
significance to the QL. Most 
other machines of the same 
calibre as the QL do not enter 
their version of the BASIC 
interpreter quite so readily — 
they have to be told. Instead, 
they load and run a program 
known as a command 
interpreter, also known as a 
shell or a console command 
processor. This command 
interpreter accepts commands 
typed in by the user and acts 
upon them, ie, loading a Basic 
interpreter, a word-processor, 
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or perhaps formatting a disk. 

The QL does not have a true 
command interpreter as the 
presence of the SuperBasic 
interpreter makes it 
unnecessary. SuperBasic is 
provided with so many built-in 
procedures and functions that it 
can very nearly emulate a more 
usual command interpreter 
simply by invoking its built-in 
routines. For example, if we 
wanted to run a program, 

EXEC my_program 

and if we wanted to format a 
microdrive cartridge, we'd type 

FORMAT MDV1_myvol 
These command lines are in 
fact simply SuperBasic 
commands. In no way do they 
give direct access to QDOS. 
Each command line we type is 
passed to the SuperBasic 
interpreter, and if the command 
at the start of the line is 
recognised, the interpreter 
calls the routine which deals 
with that command. It may well 
be that such a command 
routine in turn invokes a 
particular aspect of QDOS, but 
that is not implied. 

Why bother making this 
distinction? Simply because it 
highlights the fact that control 
over your QL is one step 
removed. The SuperBasic 
interpreter acts as the ‘middle 
man’. You communicate with it 
and it communicates with 
QDOS. It’s a marriage of 
convenience in so far as 
SuperBasic is more forgiving 
but does have its limitations as 
we shall see. 


THE SUPERBASIC 
INTERPRETER 


The SuperBasic interpreter is a 
program built into the QL's 
ROM which accepts 
statements and commands and 
acts upon them. If each 
command is preceded by a 
decimal number within a given 
range, the number is treated as 
a ‘line number’, and the 
commands are stored in main 
memory until invoked by the 
RUN command. Such a group 
of numbered and stored 
statements is Known as a 
‘program’, he SuperBasic 
interpreter is aprogram which 
is capable of running other 
programs. 

These programs must follow 
certain rules if they are to be 
executed successfully, and 
these rules form the definition of 
the SuperBasic language. In 
much the same way that 
sentences in English must 
follow certain pre-defined 
grammatical rules before they 
may be universally understood, 
so each line of a SuperBasic 
program must follow the rules 
set down by the designers of 
the language. Unlike humans, 
who often are able to discern 
the meaning of a sentence from 
its context and general form, 
the SuperBasic interpreter has 
no such intuition, and its 
programs must exactly follow 
these rules. 

When the interpreter 

encounters a statement (or a 
line containing statements), it 


POWER 
(NOTE THE HEATSINK!) 


UHF TV MODULATOR 


CONTROL 
PORTS 
SER1, SER2 
CTL, CTL2 


EXPANSION 
CONNECTOR 


MICRODRIVES 


LOGIC 
CIRCUITRY 


THE 68008 
32 BIT (!) PROCESSOR 


determines what type of 
statement it is and acts 
accordingly. In SuperBasic, 
there are basically four 
statement types. These are the 
Procedure call, the 
Assignment, the Declaration 
and the Flow of control 
statement. 

The procedure call type of 
statement occurs whenever the 
start of a statement consists of 
aname which the interpreter 
recognises as a procedure. 
This procedure may already . 
exist, such as PRINT, CLS and 
LIST, orithastobecreated — 
using the DEFine PROCedure 
statement. A procedure call 
causes the code or lines of 
SuperBasic contained within 
the relevant procedure to be 
executed, perhaps with 


* ‘parameters’ passed to it from 


the point at which it was called. 
After this control returns to the 
point immediately following the 
procedure call statement. A 
typical example is 
100 PRINT “This is a 
procedure call’ 
In this example, PRINT is the 
procedure and the string “This 
is a procedure call” is its 
parameter. 
An assignment occurs when 
a statement places a value into 
a variable. The value to be 
placed in the variable is 
derived from the expression 
following the ‘=’ sign (which 
indicates assignment). This 
expression can be as simple as 
anumber, such as 0 (zero), or it 
may be as arbitrarily 
complicated as the application 
warrants. The expression may 
involve mathematical 
operators, like ‘+’ (plus) and ‘*’ 
(multiply), and it may include 
function calls, which are very 
similar to procedure calls but 
return a value. The value of the 
expression also has a type, 
which indicates how the result 
is to be treated. If we were 
assigning a value to a normal 
variable, the type of the 
expression would be floating 
point. lf we were assigning toa 
string variable, the type of the 
expression would be string. 
Although the SuperBasic 
interpreter is fairly lax about 
these types, it obviously makes 
little sense to assign a string 
such as “Silly!” to anormal 


variable. Although such a 
statement would be accepted, 
as it conforms to the rules of the 
language, it would cause an 
error (‘Error in expression’) 


. when itis executed. A few 


typical assignments are 

100 LETa=4 

110 x$=a$ & “Another 

string” 

120 a=myfunc (12) —2 

DIV 4 
Notice that the LET keyword, 
which formally introduced an 
assignment, is entirely optional. 

With ‘block structured’ F 
languages suchasC and © 
Pascal the declaration syd 
statement is a distinct feature. It 
is used to bring a variable, 
procedure or function into 
existence and determines its 
type, size or parameters. It is 
quite separate from the 
assignment statement and 
without it there can be,no 
assignment. In SuperBasic 
whilst this is true of procedures 
and functions, where variable 
declarations are concerned it 


‘applies only to arrays (the DIM 


statement). With other variables 
assignment and declaration are 
one and the same thing so that 
when we assign a value 
new_variabl¢ = 10 

even if the variable didnot 
previously exist, it would now. 

Additionally, where 
procedures and functions are 
concerned the declaration 
statement marks the start of .: 
their definition within the © 
SuperBasic program. So the 
line 

1000 DEFine PROCedure 

MYPROC(a,b) 

declares MYPROC as being a 
procedure with two parameters 
(a and b) and also marks the 
beginning of its definition. The 
definition consists of all 
subsequent lines up to the next 
END DEFine statement. The 
purpose of a declaration is to 


tell the rest of the program what 


is meant by a particular word, in 


_ this case MYPROC, and the 


definition tells the interpreter 
what to do when it encounters 
the word. Typical declaration 
statements are shown below 
100 DIM a$(20,3) ,b(10) 
10000 DEFine FuNction 
SILLY(a) 
20000 DEFine FuNction 
STRFNS(a,b$) 


* you understand the power of 
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The final class of statement is 220 x=MYFUNC (x) 


nice and clear cut. It is the flow 230 ELSE 

of control statement. Normally, 240 OTHERPROC 
the SuperBasic interpreter 250 x=0 

executes each statement and 260 END IF 

each line within a program QDOS 


sequentially (one after the 
other), but this isn’t always what 
we desire. We may want a 
certain group of statements to 
be executed if a particular 
condition is met, and another 
group if it is not. We use a flow 
of control statement to take the 
appropriate action. In other 
circumstances, we may want a 
group of statements to be 
executed a given number of 
times, or until a condition is 
met. Each of these 
circumstances is catered for by 
the SuperBasic statements 

REPeat .. END REPeat 

FOR ..END FOR 

SELect .. END SELect 

IF.. THEN .. ELSE .. END IF 
with the help of NEXT and EXIT 
within FOR and REPeat loops. 
REPeat is used to execute a 
group of statements repeatedly 
(hence the name!), and the 
loop may be left by executing 
an EX/T statement. FOR is used 
to execute a group of 
statements for a certain number 
of times (it is actually more 


QDOS is the QL’s operating 
system, which means that it is a 
collection of programs which 
deal with all the low-level 
aspects of the machine, such 
as reading and writing data to 
devices, looking after the 
memory in the machine, and 
controlling running programs. 
QDOS is a multitasking 
operating system, which means 
that it is capable of running 
more than one program at a 
time. Don’t be fooled though — it 
is QDOS which is capable of 
this, not the SuperBasic 
interpreter, so it is not possible 
to have more than one 
SuperBasic program running at 
the same time! 

In QDOS jargon, each 
program in the machine is 
known as a job, as each 
program represents a job 
which QDOS has to do. When 
the QL is first switched on, only 
one job is present. This is the 
‘SuperBasic interpreter, which 
is special in comparision to 
versatile than this, but we'll other jobs that may be running 
leave the full description until _> because it cannot be removed. 
later), and the loop may be \ QDOS allows the systems 
ended prematurely by programmer to remove.any job 
executing an EX/Tstatement. /F from memory except the 
and SELect are used to 
execute certain groups of 
statements depending on given 
conditions. 

Notice that the SuperBasic 
interpreter also supports the 
archaic flow of control 
statements seen in other 
implementations of the BASIC 
language: GOTO, GOSUB and 
ON .. GOTO/ GOSUB. It is very 
unlikely that you will ever need 
to use these statements once 


HEX ~ 
ADDR 


the more structured 
statements. Here are some 
examples of flow of control 
statements. 

100 REPeat loop 

110 iF EOF(#3):EXIT 

loop 

120 INPUT#3,a$ 

130. PRINT #;a$(1 to 12) 

140 END REPeat loop 

200 IF x=4 

210 MYPROC 


RAM EXPANSION 


PERIPHERAL EXPANSION 
PLUG-IN ROM 


QDOS AND 
SUPERBASIC ROM 


interpreter. SuperBasic also 
has a few other special 
features, but these require a 
greater understanding of 
QDOS so they won't be 
described until later. 

QDOS imposes a certain 
memory map upon the system 
which determines where 
various parts of the system live. 
This memory map is shown in 
fig 1, although it may not mean 
much yet. The operating 
system is accessed by 
executing a few members of a 
68000 instruction type called 
TRAPS. To make the 
programmer's task that much 
easier, QDOS also has a 
number of utility routines which 
are accessed by getting their 
addresses from defined 
locations in memory (known as 
‘vectors’) and then jumping to 
these addresses. 

QDOS.performs a variety of 
tasks. Firstly, we can use it to 
control the memory resources _ 
of the machine. A job can ask 
QDOS to give it a block of 
memory for a while, and if it 
does:so QDOS can be relied 
upon not to give that same 
block of memory to anyone else 
until the job tells QDOS that it 
has finished with it. QDOS can 
also create new jobs, and 
subsequently control them by 
activating them, suspending 
them, removing them and so 
on. It canalso be told to include 


DECIMAL 
ADDR 


1048575 
1048572 
917504 


262144 
163840 
131072 
114688 . 
98304 
65536 
49152 


0 
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TREVFOHT ETD, computer accoscore 


——' ZX Spectrum and QL 
Microdrive Storage Box ™ 


, ® Designed to match QL and Spectrum — 
@ Holds 20 cartridges and index cards 
@ Fully interlocking 
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QU Centronics (Mentaee: vas ciicevsw oh aeiighessteoreds. £29.95 
QE DUST S OVO ie cy ita ceatertiannceae St rene La Pee $5.00 
ERS ZO 2OGGH aaa sraamasteraicat ancora te cee ole £10.00 


SIMON ON otcaina vaxceayt ative orcs. ine ce ler 2 ae NRE eee £299.00 

Spectrum monochrome monitor connector .......... $11.50 

SHSCHUME DUST COVET sec 0 04 2 excise enc an eee £4.00 

295 Microdiive CGANGGES 03 esis. li cec ec edene chess dean $1.99 
SpectumiRIG.B. COMMECIOR fohescas ccduorehieeens ee £45.00 

Oe y] SpectruMrepagits «0. epee eee eas £18.95 


————E 
Available from selected 
WH Smith's and leading 
computer shops 


4 
if eWe also supply printers, monitors, labels, 
} ribbon and listing paper. 


|.’ TRANSFORM LTD. (Dept.QL) 089283 4783 == 
Swatlands, Lucks Lane, Paddock Wood, Kent TN12 6QL. 


af 


bad orchanged medium 


Your data is worth a lot to you. Source programs, text, scientific information, records, all 
represent hours of your time and effort. Losing a file could at worst cost you money — and it’s 
always infuriating! 


No storage medium is 100% reliable. That’s why TALENT has developed the CARTRIDGE 
DOCTOR. It’s a sophisticated machine code program which will, in most cases, enable you to: 


@ recover files from a bad medium 
@ recover files which have been accidentally deleted 
@ recover files with lost or damaged blocks using the ‘block patch’ utility. 
It’s very easy to operate and no knowledge of BASIC or machine code is required. 
Can YOU afford to be without the CARTRIDGE DOCTOR? 


Available only from: 
£14.95 


i. oh = 
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Pe cepts hte eye BU! 
COMPUTER SYSTEMS 
Curran Building, 
101 St. James Road, Glasgow G4 ONS 
Tel: 041-552 2128 (ACCESS & VISA accepted) 
SOFTWARE FROM SCOTLAND 


ORDERED TODAY - 
DELIVERED TOMORROW 


WITH ALL PRINTERS: QL USERS PRINTERS GUIDE - Getting the best from your printer is not easy 
“e0 We supply a free booklet with all printers which explains how to obtain all the features available on your 
printer. Without this you could waste many hours. Buy elsewhere and you'll pay far more and get far less. 


B DOT MATRIX INC VAT = COMPUTERS EX VAT INC VAT 

SHINWA Gils £165-00 $489-75 SINCLAIR QL ONLY $334-00 384-10 
Ee £361-10 

EPSON FX100 F/T+ £488-75 @ DISC DRIVES 


We stock and use ALL drives and interfaces available including MEDIC, 
COMPUTAMAIE and MICRO PERIPHERALS. 
For helpful impartial advice and best prices contact us. 


@ DOT MATRIX PLUS NEAR LETTER QUALITY 


EPSON LX80 NEW $205-00 £235-75 Prices include power supply and interface. 
KAGA TAXAN KP810 SPECIAL OFFER 235-00 $270-25 MICRO PERIPHERALS 
CANON 1080A ; $240-00 276-00 3,” SINGLE DRIVE SYSTEM (.75 MBYTE) £241-00 $277.15 


CANON 1156 or KAGA 910 


@ DAISY WHEEL 
QUENDATA 1120 £225-00 £258-75 
JUKU 6100 £325.00 £373-75 
EPSON DX‘100 SPECIAL OFFER £356-00 £409-40 


£335-00 £385-25 


314" DUAL DRIVE SYSTEM (1.5 MBYTE) 5365-00 449-75 
COMPUTAMATE 
5,” SINGLE DRIVE SYSTEM (.75 MBYTE) 290-00 £333-50 


5%" DUAL DRIVE SYSTEM (4.5 MBYTE)’ 399-00 
MEDIC: PRICES ON APPLICATION. 


@ TYPEWRITER PRINTER COMBINED 
JUKI 2200 


@ COLOUR PRINTERS 
EPSON JX-80 SPECIAL OFFER £450-00 £517-50 @ MONITORS. 
CANON PJ1080A £425.00 _£488-75 PHILIPS 7502 GREEN £75-00 £86-25 


MICROVITEC CUB 1451/653 £220-00 _£253-00 


@ RAM EXPANSION BOARDS 
PCML 250K £150-00 £4172-50 


@ PRINTER INTERFACES 
MIRACLE SYSTEMS _ $2605 £29.95 


COMPLETE PACK Package includes: SINCLAIRE QL, MICROVITEC CUB563, PRINTER & ALL LEADS AND INTERFACES 
SPECIAL OFFER WITH EPSON LX80 F/T £775-00 £891-25 WITH CANON 4080 £812-00 £933-80 
WITH CANON 41156 £900-00 £1035-00 OTHER PRINTERS ON REQUEST 


Although mainly mail order, our offices are open Yam to 5-300m Mon-Fri and 9am to 14pm Saturda fers 
A (i welcome for demonstration collection DELIVERY-PRINTERS MONITORS (SECURICOR) £10-00 Othe )0 
Unit 27 Estate Buildings, Railway Street, Huddersfield HD1 1JP. Tel. 0484 514105 512037 


The best service, thebestvalue i 
Inprinters from Viglen. 


Daisy Wheel 


Dot 


Please add £25.00 for the 


Matrix Printers 


Please add s zi : 
: 5 Serial to Centronics 
£8 f + 
Sn ff ga canon pwioaony | | Printers Lakes Cote 
a \ £279 Viglen are also major suppliers 
to educational and government 
) Epson RX80 /FT establishments and welcome 
pn $275 further enquiries and orders. 
PHONE 93 ia eos ne Visit our showroom 
91-843 oe ces ses Juki 6100 £369 Weekdays 9.30 - 6pm. 
st pe Please add Saturday 9.30 - 4 
for be nitors Quen Data £247 £8 for carriage aturaay J. pm. 
on Wo All prices correct at time of going to press 


® post to: Viglen Computer Supplies. Credit Card Holders may 
z order by phone. 
| ‘Unit 7, Trumpers Way, Hanwell W7 2QA. 01-843 9903. 
@ 80 column dot matrix printers 
QUu10 
@ Raises printer high enough to put a Please send me 
continuous stationery underneath I enclose Cheque/P.O. for £ Incl. carriage. 
® Beautifully finished in clear perspex | Cheques payable to Viglen Computer Supplies. 
®@ Viglen quality every time Name 
® Will accept paper up to 12%” wide | Add 
® Non-slip rubber pads i HESS 
Dimensions: I prefer to pay by ACCESS/BARCLAYCARD Credit Cards valid onl 
15" (380mm) wide PP see ie sie ttl ec a teks . ? : signed by card holder 
12%" (320mm) deep g i Pp. / Address must be the 
4” (90mm) high Also available 136 column printer stand £27.00 Card No. : same as card holder 
| Signature 
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Most micros use BASIC 
— the far superior QL 
uses SuperBasic .. . 


Say you have a problem and 
need to write a program to 
solve it. As you are new to the 
game you naturally choose to 
write the program in 
SuperBasic, but how do you go 
j about it? 

The first thing is to carefully 
work out the problem itself. It 
probably helps if you write it 
down. After this split it into 
logical sections, each of which 
solves a particular aspect or 
arrives at a helpful mid-solution. 
There are highbrow academic 
names for this sort of program 
writing, but we like to think of it 
as little more than applied 
commonsense. 

We'll look at this in detail by 
considering the problem of how 
to write a program which 
counts the words in a file. 
There's our initial problem: ‘how 
do we count the words in a file?’ 

This can be broken down 
quite easily: 
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“BASIC SUPERBASIC 


Now, steps a) and b) should 

also take account of the fact 

that the filename typed in by the 

user may not be found, or may 

be illegal, so we could split this 

even further if we wanted to. For 

the moment, though, let’s just 

code step 1): 

100 REMark Get file from user 

110 INPUT ‘Name of file to 
count: !f$ 

120 REMark Open this file for 
reading 

130 OPEN_In#3,f$ 

140 REMark Set count to 0 

150 count=0 

160 REMark Set flag to say 
‘notin word’ 

170 inword=0 

Not so difficult! Step 2'is 

considerably more involved 

and it is a good idea to break 

the problem down even further, 

perhaps by coding each line at 

atime. 

One area of difficulty we’re 
about to encounter is deciding 
whether the character we've 
read from the file is part of a 
word or not. To be able to work 
this out, we need to define a 
word. The most sensible 


1) Initialise— prepare the computer to solve our problem 
2) Loop until we reach the end of the file: 


get a character 
are we currently within a word? 
If yes: 
does the new character form part of the same 
word? 
If yes: 
go back to step 2) 
Otherwise: 
increment word count 
set flag to say ‘not in word’ 
go back to step 2) 
Otherwise: 
does the character start a new word? 
If yes: 
set flag to say ‘in word’ 
go back to step 2) 
Otherwise: 
go back to step 2) 


‘definition is to consider a word 
as any sequence of one or 
more ‘alphanumeric’ 
characters. What’s an 


3) Print out result 

4) End program 

The first step, ‘/nitialise’, is a 
nice bland word which has 


a 
into an independent routine. 4) Return FALSE 
Such a routine ought to return Dead easy, this, isn’t it: 
one value if the character being 10000 DEFine FuNction 
examined is alphanumeric, and ISALNUM(char) 
another if not. The values itisto 10010 1F char>=‘A’ AND char 
return will mean, as far as we <='‘Z’:RETurn 1 j 
are concerned, TRUE (if it is 10020 IF char>=‘a’ AND char 
alphanumeric) and FALSE (if it <='‘z’:RETurn 1 
is not). Computer programmers 10030 IF char>=‘0’ AND char 
almost always refer to FALSE <=‘9’:RETurn 1 
as 0,andto TRUE as any value 10040 RETurn0 
which is not 0, such as 1. 10050 END DEFine 
Our independent routine to We've called our function 
determine whether acharacter /SALNUM, as it seems as good 
is alphanumeric or not returns’a aname as any, and we've said 
result to use, so it is known in that it gets one parameter, 
computing as a function. We which is to be called char 
can define these quite easily in inside the function. We then ask 
SuperBasic but as usual we SuperBasic if the character is 
must first examine the problem alphanumeric, with the >= 
the function is to solve: (greater than or equal to) and 
180 REMark Loop... 
190 REPeat loop 
200 REMark... until end of file 
210 IF EOF(#3)=1:EXIT loop 
220 REMark Geta character é 
230 c$=INKEY $(#3,—1) 
240 REMark Are we currently within a word? 
250 = IFinword=1 THEN 
260 REMark Yes, does the character form part ofa ; 
word? 
270 IF ISALNUM(c$)=1 THEN 
280 REMark Yes, go back to step 2) 
290 NEXT loop 
300 ELSE 
310 REMark No, so increment word count... 
320 count=count+1 
330 REMark. . . set flag to say ‘notin word’... 
340 inword=0 
350 REMark. . . and go back to step 2) 
360 NEXT loop 
370 END IF 
380 ELSE 
390 REMark Does the character start a new word? 
400 IF ISALNUM(c$)=1 THEN 
410 REMark Yes, set flag to say ‘in word’ 
420 inword=1 
430 REMark Go back to step 2) 
440 NEXT loop 
450 ELSE 
460 REMark No, go back to step 2) 
470 NEXT loop 
480 END IF 
490 ENDIF 
500 END REPeat loop 


1) Is the character between ‘A’ 


more to do than it may seem, so 
let's split it up even further: 
1) Initialise: 
a) Get name of file to count 
b) Open it for reading 
c) set count to 0 
d) set flag to say ‘notin 
word’ 
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alphanumeric character’? It’s 
computing jargon for any letter 
or digit; that is, the characters 
‘A’ to ‘Z’, ‘a’ to 'z’ and ‘0’ to ‘9’. 
Now, as we need this 
definition throughout the 
execution of step two, it would 
seem like a good thing to put 


and ‘2’? 
If so, return TRUE 

2) Is the character between ‘a’ 
and ‘z'? 
If so, return TRUE 

3) Is the character between ‘0’ 
and ‘9’? 
If so, return TRUE 


<= (less than or equal to) 
relational operators. 
SuperBasic defines that any 
character which is greater than 
or equal to ‘A’ and less than or 
equal to ‘Z’ will be a capital 
letter between ‘A’ and ‘2’, any 
greater than or equal to ‘a’ and 
less than or equal to ‘z’ willbe a 


small letter between ‘a’ and ‘2’, 
and any greater than or equal 
to ‘0’ and less than or equal to 
‘9’ will be a digit between ‘0’ 
and ‘9’. 

The function returns its result 
to the main program with the 
aid of the RETurn statement, 


need to specify a timeout in 
INKEY$ calls because reading 
data from a disk or a microdrive 
always takes time, and there 
may not be any characters 
available straightaway. By 
asking it to wait forever, we 
ensure that every character 


of these occurs within IF. . 
THEN . . ELSE statements, 


until the line 

END REPeat loop 

is met anyway, and END 
REPeat loop is where the code 
jumps if we execute a NEXT 


nothing else could be executed 


This is about as efficient and 
compact as we can get it, 
unless we start compressing a 
few of the IF. . THEN. . ELSE 
statements into single lines. We 
are perfectly able to do this, but 
it greatly reduces the 
readability of the program. 


and the rules for functions are returned by INKEY$ is valid. loop statement. So, part 2 of the Always try to break your 


such that the use of a function 
within an expression yields the 


1.—We check to see if there are 
any more characters to read 
from the file by calling the 
built-in EOF function. This 
returns O (‘FALSE’) if there are 
more characters to read on the 
specified channel, and 1 
(‘TRUE’) if there are not. 


2.—Whenever there are lines this respect, in that it too will 120 count=0 

starting with ‘IF something consider 0 as FALSE and 130 inword=0 i 
THEN’ which spread over a few anything else as TRUE, so we 140 REPeat loop I 
lines, we end the entire IF . . could rewrite these lines as 150° IF EOF(#3):EXIT loop 


THEN . . ELSE sequence with a 


line saying ELSE IF. Thisisone IF inword THEN 170 IF inword THEN HW 
of the rules of the SuperBasic IF ISALNUM(c$) THEN 180 IF NOT ISALNUM(c$) THEN 
Programming language which IF ISALNUM(c$) THEN 190 count=count+1 I 
we need to follow if we want our and the effect would be just the 200 inword=0 t! 
programs to be executed same. This is because 210 END IF i! 
successfully. EOF(#3), inword and 220 += ELSE 
3.—Notice that when we use the ISALNUM(c$) are just as valid 230 IF ISALNUM(c$) THEN i 
INKEY$ function to get a expressions as EOF(#3)=1, 240 inword=1 | 
character from the file into our inword=1 and 250 END IF | 
variable ‘c$’, we pass the ISALNUM(c$)=1, and take 260 END IF i 
function two parameters. The exactly the same values. That 270 END REPeat loop H 
first, ‘#3', refers to the channel __ is, if inwordis 0, both inword=1 280 PRINT ‘There are’ !count! ‘words in’ !f$ | 


from which we want to read 
data. The second ‘—1’, is 
known as the timeout and tells 


’ the function to wait a specified 


time if there are currently no 
characters available. The value 
of —1 means ‘wait forever’. We 


Now we can write step 3. This 
bit is probably the simplest: 


IF EOF (#3)=1:EXIT loop 

IF inword=1 THEN 

IF ISALNUM(c$)=1 THEN 

IF ISALNUM(c$)=1 THEN 

In all four cases, we're 
comparing values with 1. 
SuperBasic adopts much the 
same conventions as we do in 


IF EOF (#3):EXIT loop 


and inword evaluate to 0, which 
is FALSE. If inword was equal to 
1, both expressions would . 
evaluate to 1, which is TRUE. 
The next improvement 
concerns the proliferation of 
NEXT loop statements. As each 


program could usefully be: 


problem down smaller. 


500 END REPeat loop 

And subsequently the program 

could be renumbered. If we 

then remove all the REMark 

statements, our program 

becomes . 

100 INPUT ‘Name of file to count: !f$ 
110 OPEN_IN#3,f$ 


160 c$=INKEY$(#3,—1) 


290 CLOSE#3 

10000 DEFine FuNction ISALNUM(char) 
10010 IF char>=‘A’ AND char <=‘Z’:RETurn 1 
10020 IF char>=‘a’ AND char <=‘z’:RETurn 1 
10030 IF char>=‘0’ AND char <=‘9’:RETurn 1 
10040 RETurn 0 

10050 END DEFine 
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returned value of that function, 510 REMark Print out the 180 REMark Loop... | 
so result 190 REPeat loop } 
x=ISALNUM(‘D’) 520 PRINT ‘There are’ !count! 200 REMark... until end of file i 
will put the value 1 (‘TRUE’) into ‘words in’ !f$ 210 IF EOF (#3):EXIT loop | 
the variable ‘x’, and Step 4 is the ending of the - 220 REMark Geta character i 
y=ISALNUM(‘$’) program. In this instance, the 230 c$=INKEY$(#3,—1) | 
will put the value 0 (‘FALSE’) only thing we need to do at the 240 ~REMark Are we currently within a word? | 
into the variable ‘y’. So now end of the program is to close 250 IF inword THEN | 

step two is a little easier to the file we were reading the 260 REMark Yes, does the character form part of a 
write, characters from: word? i 
That's step 2 complete, butas 530 REMark End the program 270 IF NOT ISALNUM(c$) THEN i 
we'll see later there’s an awful 540 CLOSE#3 310 REMark No, so increment word count... 
lot of redundant code which So we now have our 320 count=count+1 i 
has slipped in because the complete program. Although 330 REMark.. . set flag to say ‘not in word’... i 
problem was written in away to you'll find that it works exactly 340 inword=0 
suit humans rather than a as it should, and really does 370 END IF | 
programming language. When __ print out the number of words in 380 ELSE ii 
the entire program has been anamed file, purists will 390 REMark Does the character start a new word? i 
written, we will go through the demand that the excesses of 400 IF INSALNUM(c$) THEN { 
code looking for bits which line-by-line coding are 410 REMark Yes, set flag to say ‘in word’ i) 
don't need to be there. removed. So here goes. 420 inword=1 | 

The first things we can take a 480 END IF 
CH ECKPOI NTS look at are the four lines 490 ENDIF 


OWNER’S MANUAL 


SUPERBASIC 
DATA TYPES 


Whenever we use variables in a 
SuperBasic program, we tell 
the SuperBasic interpreter what 
type of data it may hold in each 
variable. We don’t necessarily 
do this deliberately as the 
system ‘defaults’ to a particular 
type. But what is a type and 
how do we take advantage of 
them? 

It’s all to do with data 
representation; if we're dealing 
with numbers in an accounting 
program, we're likely to want to 
use fairly large numbers which 
may optionally include a 
decimal point. If we were 
writing a program to look after 
the stock levels in our factory, 
we'd probably want to use 
whole numbers, and if we're 
writing an address book 
program, we want to deal with 
strings of characters. These are 
the three fundamental data 
types accepted and used by 
the SuperBasic interpreter. 

The first type, numbers which 
may include decimal points 

and can take on extremely 
large values, is known as 
floating point. On the QL, 
floating point numbers have a 
range of in the region 10 to the 
power of + 615. 
The second data type, that 


comprising whole numbers, is, 


known as the integer data type. 
On the QL, integers can be any 
whole number between 

32768 and —32767. 

The last type, comprising of 
strings of characters, is known 
as the string data type, and 
strings can be from zero 
characters long (known as the 
null string ie, “”) up as far as 
32766 (NOT 32767!) 
characters long. 

The reason for the existence 
of the three types is that 

. different applications demand 
different kinds of data, and 
having to hold all data as one 
particular type would be very - 
inefficient. QL SuperBasic 
variables are specified in terms 
of type by following the name of 
the variable with a special 
symbol. If there is no symbol, 
as in: 

variable 
then the data type is floating 
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point. As it isimplied rather 
than specified, this is the type 
adopted by default. 

Integer variables are 
introduced by following the 
name with a per cent sign, as 
in: 

variable% 
and string variables are 
created by terminating the 
name in a dollar sign: 
variable$ 

The SuperBasic interpreter 
exercises something known as 
type coercion, which means 
converting data from one type 
into another. For example, we 


.may have a variable, v, which 
‘holds the number 23. As vhas 


no special symbol at the end, it 
is a floating point variable. This 
means that its value, 23, is held 
as a floating point number 
inside the QL. Nevertheless, we 


‘can put the value into an 


integer variable 
x%=V 
because the value of v (23) also 
happens to be a valid value for 
an integer. The SuperBasic 
interpreter coerces the floating 
point representation of 23 into 
its integer representation 
before the value is placed into 
x%. This coercion is often very 
useful, as we don’t need to 
check for operations such as 
the assignment above, and old 
BASIC functions such as STR$ 
and VAL are done away with. 
To see whether a coercion 
could be successful, we need 
only to consider the generality 
of each type. As a string 
variable can hold an arbitrary 
string of characters, and as all 
numbers may be written down 
as characters (and therefore 
stored as characters), it follows 
that a string variable can 
always be assigned a numeric 
value. The statement 
v$=1234.56 

will put the seven characters 
PD”, "Bran OS and:"6" 
into the string variable v$. The 
value of 1234.56 (ie, the 
number 1234.56) will not be 
stored, simply its string 
representation. The string data 
type is therefore more general 
than numeric types such as 
floating point and integers. 

Floating point is more 
general than integer, because 
every integer may also be 


represented as d floating point 


number. This makes the integer 


data type the least general and 
string type the most general. 
There is a further data type 
accepted by the SuperBasic 
interpreter, called the name 
data-type. This is used for 
procedure, variable and 


function names, and for file and . 


device names. It is comprised 
of astring of characters, just 
like the string data type, but is 
slightly less general than string 
as not all strings are valid 


names. It is used whenever you 


specify a filename, as in 
OPEN#3,mdvi1_myfile 
As you can see, the only 
difference between it anda 
normal string is that it is not 


surrounded in quote marks. It is 


perfectly permissable to add 
the quote marks, and thus turn 


it into a string, but itis generally - 


less convenient to do so. The 


name data type is a sub-branch 


or leaf of the string data type. 


UN-TYPED DATA 


Occasionally you will come 
across instances of data which 
don’t seem to have a type 
specified at all. Although you 
may think that this makes it 
default to the floating point 
type, this isn’t quite true. 
Let's take a typical defined 
function: 

1000 DEFine FuNction 
MYFUNC%(a,b) 

1010 LOCalc,d$ 

1020 c=aINSTRb 

1030 IF c=0 THEN d$=" 
ELSE d$=‘OKAY’ ; 
1040 RETurn LEN(d$) 
1050 END DEFine 

If we make a list of all the 
identifiers (names) in this 


function, we see MYFUNC%, a, 


b, c, ag. The function itself, 
MYFUNC%, is terminated in a 


% sign, which indicates that the 


function is typed. It returns an 


integer result. Likewise, the two 


local variables cand d$are 
typed; cis a floating point 
variable and d$is a string 
variable. What about the two 


formal parameters, aand b? No 


type is specified for them, yet 
they are used as string 
variables within the function. 
This is another rule of the’ 
language followed by the 
SuperBasic interpreter: formal 


parameters to functions and 
procedures are un-typed, and 
the actual type is derived from 
the usage of the variables 
within the procedure or 
function. As we’re using them 
as strings here, it doesn’t 
matter what type the actual 
parameters are as string is the 
most general type. If we had 


_ used them as integers in the 


function, we'd get an ‘Error in 


expression’ error (or possibly 


‘Overflow’) if the actual values 
of ‘a’ and ‘b’ could not be 
coerced into integers. ‘ 
There is nothing to stop us 
specifying the types of the 
formal parameters within the 
function; as in 
1000 DEFine FuNction 
MYFUNC%(a$,b$) 
but as the interpreter still 
follows its own rules, the type 
we specify will be over-ridden 
by the type dictated by the 
usage. © 
The reason for having un- 
typed formal parameters is a 
little obscure, but as it makes 
little difference to the way we 
write programs it doesn't really 
matter. Some of SuperBasic’s 
rules for typing DO affect us, 
though, and if we don’t know 
about them it is very easy to get 
confused. The main point to 
watch is the ‘flow of control’ 
statements 
SELect 
REPeat 
FOR 
Each of these has a ‘control 
variable’ (or, more accurately, a 
control identifier) which is 
specified in the construct: 
, SELect ON var 
REPeat loop_7 
FOR x=0 TO 10 
The important thing about these 
control variables is that in all 
three cases they MUST be 
floating point variables. We 
cannot have 
_ SELect on var% 
or 
REPeat loop$ 
The annoying thing is that if we 
enter such an erroneous line 
into a program, the SuperBasic 
interpreter won't complain. 
Things will go wrong as soon as 
we runit, though, and the 
particular error generated may 
be extremely obscure. So 
watch out! 
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MACHINE CODING 


Overcoming the 
limitations and 
strictures of SuperBasic 
is one reason for using 
machine code. There 
are, however, many 
others... 


Programs written in SuperBasic 
have one major problem — they 
are written in a language which 
.the 68008 processor inside the 
QL cannot immediately under- 
stand. The program needs to 
be interpreted as it is being 
executed, and this is the job of 
the built-in SuperBasic interpre- 
ter. Now, as the processor is 
getting the program ‘second 
hand’ it executes it at a slower 
speed than would otherwise be 
the case. To be able to get the 
68008 to work at full speed you 
have to cut out the middle man 
and write your programs in the 
processor's native language, 
known as machine code. The 
problem with machine code is 
that although the processor is 
eminently capable of under- 
standing it, humans are not. 

For this reason, program- 
mers that decide to program 
the computer in its own lan- 
guage cheat a bit. They write 
their programs in something 
known as assembly language. 
Assembly language is a more 
readable form of machine 
code, in that every number that 
represents a machine code in- 
struction is replaced by a short, 
more easily remembered catch- 
word or mnemonic. The pro- 
gram which converts each 
mnemonic into a numbered in- 
struction is known as an 
‘assembler’. There are quite a 
few of these about for the QL 
now, and it can’t be empha- 
sised enough just how impor- 
tant the use of one is if you 
choose to program in the pro- 
cessor's native tongue. 

It must also be stressed that 
learning machine code is not 
the sort of thing which may be 
easily covered in a three-part 
supplement..A book and a lot of 
practice is needed, but bud- 
ding machine code program- 
mers may take comfort in the 
fact that 68000 (and 68008) 


14/QL User Owner’s Manual 


assembly language is consider- 
ably more powerful and easy to 
learn than the native codes of 
other, lesser processors. 

No matter what the depth of 
experience of a machine code 
programmer, he still needs to 
know a lot about the insides of 
the QL itself before any really 
useful programs can be written. 
After all, how useful is a pro- 
gram which is unable to write to 
the screen, read from the 
keyboard, or talk to the micro- 
drives likely to be? To get this 
information, the programmer 
needs to understand the under- 
lying operating system of the 
hardware, which in this case is 
the QDOS operating system. At 
the same time, he will need to 
know where in memory he may 
put his programs, what con- 
straints are placed upon them 
by the host environment, and 
just what a program may realis- 
tically be expected to do. 

To learn all this information, 
yet more books are required. 
Obviously, the most informative 
and useful is likely to be that 
produced by the authors of the 
operating system or their 
agents, and indeed the QL 
Technical Guide, published by 
Sinclair Research, provides all 
the information a programmer 
is likely to require. The problem 
is this information is not always 
presented in the most access- 
ible form. As the first foray in to 
machine code in this supple- 
ment, then, we'll take a closer 
look at QDOS. Not from the 
point of view of what we may 
ask it to do for us, as that is a 
topic which needs a gentle 
introduction, but to see what it 
expects of a machine code 
program. 


MACHINE CODE 
PROGRAMS 


A machine code program on 
the QL may fall into three 
general categories. There is the 
small section of code which we 
may choose to write so that it 
may be called from the Super- 
Basic interpreter with the CALL 
procedure. There is the multi- 
tasking machine code pro- 
gram, called a job, which we 
would execute from the Super- 


Basic interpreter with the EXEC 
or EXEC_W procedures, and 
there is the resident extension. 
The last category may also be 
further sub-divided into exten- 
sions to the SuperBasic inter- 
preter, extensions to QDOS, 
such as ‘more trap-invoked 
routines to date-stamp micro- 
drive files, rename files or what- 
ever, and extensions to the 
system as a whole, such as 
device drivers, function key 
programmers and resident 
hardware controllers. 

The first group, the CALLed 
subroutine is the least used as 
it is the least versatile option. A 
programmer may write a small 
subroutine to perform certain 
mathematical or graphical op- 
erations at a higher speed than 
the SuperBasic interpreter is 
capable of. Such routines 
would normally be hidden away 
in the resident procedure area 
of the machine, as they would 
then be permanently installed 
until the machine. is reset or 
switched off. Resident proce- 
dure space is taken from the 
system by asking QDOS to 
allocate a given number of 
bytes. Within SuperBasic, this 
is done with the RESPR func- 
tion, which is passed as a 
parameter the number of bytes 
required and returns the base 
address of the area allocated. 
If, for example, we had a 100- 
byte long code file on micro- 
drive called mycode, it could 
be installed into the system with 
just two statements: 
base=RESPR(100) 

LBYTES mdvi_mycode,base 
and base would be the address 
at which the first byte of the 
code file was loaded. If this also 
coincided with the start 
address of the routine, which it 
generally would, then the sub- 
routine would be executed with 
a statement along the lines of 
CALL base , 

Now, as QDOS returns the 
base address of the area allo- 
cated to us, the actual absolute 
value of this base address is 
not governable by us, which 
means that any code we write 
which is to be placed in the 
resident procedure area must 
be position independent. This 
is a concept which is so fun- 


damental to the average 68000 
system that every machine 
code programmer soon gets 
used to it. Thankfully, the 
machine code programmer 
finds that 68000 assembly lan- 
guage is particularly easy to 
write in a position independent 
manner. 

The main reason that sub- 
routines are not often written in 
this way is that the SuperBasic 
interpreter itself is extendable, 
and the process of adding new 
procedures and functions to it 
is made extremely easy. Once 
a machine code procedure or 
function has been added to the 
SuperBasic interpreter’s name 
list, it can be called in exactly 
the same way as other, resi- 
dent, procedures and. func- 
tions. Suppose, for example, 
that we wrote a procedure in 
machine code called MYPROC, 
which expects two parameters. 
It would be called with a state- 
ment of this form: 

MYPROC par1,par2 

making it indistinguishable from 
other procedures and_ func- 
tions. If a large number of 
procedures and functions were 
to be added, it is obviously far 
easier to remember the routines 
by name rather than by base 
address, which we would need 
to do if we made each routine a 
subroutine to be CALLed. 

Naturally, there are certain 
rules and coding restrictions 
which must be followed when 
writing routines to be added to 
the SuperBasic interpreter in 
this way, but they are fairly 
minor and easily overcome. We 
will look at these later. 

Writing programs to be ex- 
ecuted as independent jobs, 
which will multi-task, is a simple 
process, as the restrictions 
placed upon such code are 
very few. In fact, there’s only 
one — the code must be posi- 
tion independent, and even this 
can be overcome by the pro- 
grammer (if the code for the job 
is ina ROM, for example). 


JOBS 


lf we take advantage of the 
multitasking environment pro- 
vided by QDOS, we must follow 
its rules and be aware of its 
expectations. Every multitask- 


ing program on the QL is a job, 
and every job is independent 
from any other in that it has its 
Own personal copies of the 
68008 registers which under 
normal circumstances are that 
job’s private domain. It is very 
unusual for one job to consis- 
tently alter the register values of 
another job, but it is quite in 
order for the job which initiates 
another job to set up certain 
values prior to the new job’s 
execution (particularly the 
Stack pointer, as it is quite likely 
that the starting job will want to 
put channel IDs and strings on 
the new job's stack). 

Each job is regularly started 
and stopped by part of QDOS 
called the scheduler, the fre- 
quency of activation being de- 
termined by a value known as 
the job's priority. This is a 
number between O and 127, 
with, 127 being the highest 
possible priority. A job with a 
low priority will be activated 
less often than one with a 
higher priority, and one with a 
priority of O will not get acti- 
vated at all. 

Although the frequency of 
these activations may be con- 
trolled by altering a job’s prior- 
ity, the length of the activation 
period may not, as this is inte- 
gral to the system. As activation 
periods (more often known as 
the time slices) are very short in 
human terms, the user gets the 
impression that jobs run at the 
same time, although this is not 
actually the case. 

To maintain this impression, 
each job must allow itself to be 
interrupted by the scheduler so 
that another job may be given 
its time slice. For this to hap- 
pen, the job must be running in 
the 68008’s user mode, while 
the scheduler runs in super- 
visor mode. Such a situation will 
almost always prevail though 
the author of the job may 
choose to enter supervisor 
mode so that a particular op- 
eration can be performed with- 
out interruption. 

Almost all QDOS routines are 
entered by executing a 68008 
TRAP instruction, which auto- 
matically enters supervisor 
mode, so just about every 
QDOS operation is carried out 
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in supervisor mode. However, 
as each operation generally 
takes a very small amount of 
time, the duration of the activa- 
tion which occurs in supervisor 
mode is very.small, so other 
jobs are not disturbed over- 
much. 

To encourage this state of 
affairs, QDOS ensures that 
those routines which will take a 
considerable amount of time 
are interruptable. For example, 
if we ask QDOS to send a large 
number of bytes to an output 
device and not to come back 
until it has finished, it will do this 
by telling the requisite. device 
driver that it wants to.send data, 
and then suspending the 
asking job. A suspended job is 
not given its share of time 
slices, but the thing which it is 
suspended for (in this case the 
device driver) will be periodi- 
cally asked if it has finished yet. 
When the device driver replies 
that it has, QDOS releases the 
suspended job which con- 
tinues where it left off. The 
upshot of all this is that it is only 
in very exceptional circumst- 
ances that a job will enter 
supervisor mode, and therefore 
suspend multitasking, for an 
extended period. Unfortunate- 
ly, one of these circum- 
stances occurs whenever a 
microdrive is accessed, which 
is why everything stops when 
a job talks to the microdrive. 

QDOS keeps track of all the 
jobs by maintaining a table in 
memory, and each job is pre- 
ceded by a special 104 byte 
long header which QDOS uses 
to keep track of things, such as 
the job’s priority, its current 
status (i.e. whether it is sus- 
pended or not, whether it is 
Currently active, and so on). 
This area is also where QDOS 
keeps the job's stored regis- 
ters. When a job gets its time- 
slice, QDOS retrieves the regis- 
ter values from this store, puts 
them into their requisite regis- 
ters, and continues. When the 
job’s timeslice is over, QDOS 
ré-saves the register values in 
the same area. In this way, the 
processing of each job is en- 
tirely independent. This has the 
side effect that if One job 
crashes in a way which is. not 
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entirely catastrophic, the other 
running jobs continue to run. 

QDOS imposes a (get ready 
for it!) heirarchical tree struc- 
ture upon the jobs in the 
machine. This means that every 
job is “owned” by another, and 
that removing (‘killing’) a job 
will also kill any jobs below it in 
the tree. ; 

The SuperBasic interpreter is 
always -job number 0, which 
places it at the top of the tree, 
and any job started with the 
EXEC or EXEC_W commands 
will be owned by the Super- 
Basic interpreter. In Unix termi- 
nology, these new jobs will be 
children of the SuperBasic in- 
terpreter. A typical job tree is 

When a job is killed, any 
memory allocation it owns is 
released back to the system, 
and any open channels it owns 
are closed (the ownership of a 
channel is determined when a 
channel is opened). This is why 
a tree set up by the QUUMP QL 
Toolkit commands EX and EW 
works so effectively. If a typical 
EW command line is examined: 
EW my job,#1 TO other job, 
myfile TO page,seric; ‘A job 
tree’ we can see that it specifies 
three jobs: my job, other job, 
page. The input to myjob is 
taken from SuperBasic channel 
#1, and its output is sent along 
a pipe to otherjob. Otherjob 
also gets some _ information 
from myfile, and its cutput is 
sent to page. Page sends its 
output to SER1C, and also has 
a parameter string ‘A job tree’. 

Now, in order for the whole 
tree to be dismantled when the 
process has ended, and in 
order for all the channels 
opened for these jobs to be 
closed, the EW command uses 
the QDOS job tree structure. It 
first makes space for page, and 
loads it in. Page is therefore 
owned by the SuperBasic inter- 
preter. It then loads otherjob, 
telling QDOS to make it a child 
of page. Finally, myjob is 
loaded as a child of otherjob. 
The channels are opened for 
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each job and their IDs are put in 
places where the jobs can find 
them (on top of their stacks). 
Now, as the chain of data flows 
from myjob through otherjob to 
page, it is page which will finish 
last. When it is killed (by 
finishing) it also kills otherjob, 
as it owns it. The killing of 
otherjob in turn causes myjob 
to be killed, as it owns that. 
Thus, the killing of page re- 
moves the entire tree, meaning 
that commands like EW do not 
need to keep track of all the 
jobs as the process is handled 
entirely by QDOS. 

As we have seen, QDOS is 
well-equipped to help us in our 
machine code programming 
efforts. There is a great deal 
more that it can do for us, too, 
but we can't cover all that here. 


HIGH-LEVEL 
PROGRAMMING 


Another way of writing pro- 
grams in machine code, with- 
out going through the hassles 
of having to learn about the 
68008, about QDOS and about 
multitasking, is to write: our 
programs in high-level lan- 
guages which compile. into 
machine code programs. We 
can write all our programs in a 
language we are familiar with, 
such as C, Pascal or BCPL, and 
then let the compilers of these 
languages do the hard work of 
converting them to machine 
code. 

This is a great solution, so 
long as there is a compiler 
available for the language with 
which you're particularly happy 
with, but it is very rare that such 
a compiler would also let us get 
down to talking directly with the 
system. We would normally 
have to add little machine code 
extensions to the compiler, 
which may be seen as defeat- 
ing the object. However, as the 
majority of the program is likely 
to be written in the high level 
language, this is often a very 
popular solution. 
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THE EXPANDING QL 


The QL currently finds 
wide application as a 
development system. 
There are, however, less 
ambitious extensions... 


One of the most frustrating 
things about the QL when it’s 
used for professional work, 
such as word processing or 
database management, is the 
slowness of the microdrives 
- when loading and saving data. 
The average Quill document of 
perhaps 2000 words takes far 
longer to load into the machine 
than Quill itself does. When you 
consider that Quill is 
considerably longer than a 
2000 word document, you 
begin to wonder just who is to 
blame for this alarming lack of 
microdrive performance. 
Whatever, the business user 
soon finds himself confronted 
with one option — he must buy a 
disk interface and disk drives 
for his QL. 

Disk drives offer a number of 
advantages over microdrives. 
In particular, they are in general 
far faster at loading and saving 
documents, programs and 
data, and can squash a lot 
more storage space onto a disk 
than the microdrive can onto a 
cartridge. The average QL disk 
interface with 80-track double 
sided drives manages a 
wonderful 720K (over 720000 
characters!) per floppy disk. 

The disadvantages are of 
course just as apparent. Disk 
drives are bulky, noisy and 
consume a fair amount of 
power. The units themselves 
are extremely expensive and 
the proliferation of types 
available makes the choice 
very difficult for the novice. If 
you have got to the stage where 
you really believe you cannot 
do without disk drives, then 
what do you buy? 

Consider first your reasons 
for wanting disks. Is it for more 
storage, faster loading or 
increased reliability? If you are 
buying disks for only one of 
these reasons, then your 

‘ choice is reasonably simple: 
buy the unit which most nearly 
matches your ideal. If however, 
you choose to buy a disk drive 
for ALL these reasons, you'll 
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find a host of manufacturers 
and retailers just dying to get 
hold of your money. First you 
must choose your disk interface. 
Disk interfaces are now 
made by at least seven 
different companies, but each 
offers different facilities. Tony 
Tebby, the designer of QDOS, 
has designed a disk format 
which ought to be adopted by 
all disk interface 
manufacturers. It isn’t, of 
course, but those that do tend 
to be more highly thought of 
than those that don't. 
Personally, | use the CST/ 
Computamate QDISC 


interface, which costs £99 and 
seems to be one of the fastest 
units around. It can support the 
standard 5.25” floppy disks, 
the new 3.5” micro-floppy 
disks, and even the horrible 3” 
format. It is also able to support 
single and double-sided units 
with 40 or 80 tracks. Not to 
mention single and double- 
density! We'll explain all these 
terms in a moment. 

Other disk interfaces can 
also support most.of these 
types, so really it is a question 
of buying your interface (see 
earlier issues of QL Userto help 
you make your choice) and 
then buying your drive. 
Maximum storage will be 
obtained from a drive if it is both 
double-sided and 80 track. 
Double-sided means that it 
uses both sides of the floppy 


disk for storing information, and 
it does it without asking you to 
turn the disk over! A disk drive 
which is 80-track will store 
twice as much information on a 
floppy disk as a 40-track drive, 
because although it makes use 
of roughly the same physical 
area of disk, it divides the 
sections it uses into smaller 
widths. The most flexible unit 
would be one which is capable 
of being both 40 and 80-track, 
but it is fairly unlikely that 
anyone buta programmer - 
would need such versatility. 
The drive you buy must also 
incorporate its own power 


supply unit, as the QL would be 
stretched past its limits if it were 
asked to supply the power to 
the drive. In the same way as 
we find two microdrives far 
more convenient than one, 
you'll undoubtedly find that 
having two disk drives is better 
than one. Most disk drive 
manufacturers supply single 
and double-drive units in 
cases, so two drives take up 
only a.small amount of desk 
space more than a single drive. 
Choosing between the 
various sizes of floppy disks 
and drives is a little more 
difficult, as there are no clear- 
cut reasons why you should 
plump for one size in 
preference to another. 5.25” 
disk drives and floppy disks are 
more widely available and 
generally cheaper than 3.5” 


versions, but 3.5” disks are 
more durable and becoming 
increasingly more standard. 
They are also considerably 
smaller. 

When | bought drives for my 
QL | plumped for Cumana 40/ 
80-track switchable dual 
double-sided drives, in the 
‘new’ slimline format. The main 
reason | decided upon these 
units was that | was offered 
some valuable advice by the 
retailers, and really one drive is 
much like another. There are a 
few technical details to sort out, 
most particularly it is important 
that the drives you buy have a 
‘READY ' line available in the 
standard place. 

The terms ‘double density’ 
and ‘single density’ refer to the 
method of data storage used 
by the interface to record data 
on the disk. Double density, as 
its name implies, allows twice 
as much storage per disk as 
single density interfaces. It is 
just about standard now for 
every interface to use double 
density, and it is only on 
outdated machines such as the 
BBC Micro that you'll find 
frequent usage of single- 


| density formats. 


Your choice should now be 
narrowed down to being very 
much “how much do | want to 
spend?” dependent. Taking all 
the choices available, the chart 
of usefulness versus cost looks 
something like this: 

80-track double-sided dual 

drive 

40-track double-sided dual 

drive 

80-track single-sided dual 

drive 

40-track single-sided dual 

drive 

80-track double-sided 

single drive 

40-track double-sided 

single drive 

80-track single-sided single 

drive 

40-track single-sided single 

drive 
The choice between disk sizes 
is really a personal thing, but 
otherwise, use your money 
wisely to get a drive as far up 
the list as possible, but don't 
forget that you still need an 
interface and some floppy 
disks! 


“Hil’m Otiss. 
“T’m part of a great new design that makes your 
ASQ favourite games mag even bigger, bolder and better. 
“The October issue of Computer & Video Games has been 
re-designed to feature more colour, bigger screen shots, more 
~ adventure, more reviews and the brilliant .D.E.A.S. Central. That's 
where yours truly and the rest of the BUG HUNTERS come in. 
“We've been brought together by Tim (the esteemed editor of C&VG) 
andJerry .our maker, to save you from death, destruction and 
dodgy software. 
“Meet Jackson T. KALLIBER . .. my boss, who makes Rambo look 
like Rupert Bear and MELISSA RAVENFLAME his boss . . . well she 
makes me go hot under the collar and I’m a robot! 
“LOOK out for our first computer adventure in the OCTOBER 
C&VG. ON SALE SEPTEMBER 16TH. ONLY 95p..” 


Nice Password. 
Shame about the Identity. 


It’s a unique combination. 
Your Special Identity Number 
and Personal Password. The valu- 


able key to huge databases teeming 


with activity, set on our Mainframes 
across the nation. 

On Micronet 800, you’re a 
valued individual, adding your own 
special flavour and personality to 
the database. 

Take our exciting new “Gallery”- 
You control your personal screens 
for all to see. The intriguing “Chatline” 
public conversation service gives 
you freedom to express your views 
and meet some remarkable people. | 

All part of a tremendous Com- 
munications section that networks 
you to 60,000 Micronet and Prestel 
users across the country. Try Tele- 
shopping, or interview celebrities 
live on “Celebrity Chatline” every 
Wednesday night. 

And there’s FREE (& instant) 
National Electronic Mail, plus Inter- 
national Telex, and the Contact and 
SwapShop bulletin boards. 


Get computer news first on 


Micronet’s daily (and controversial) cc — 


““Newsflashes” and read up on the 
latest reviews and courses. Feast 
from our regularly changing menu of 
programs to download straight into 
your micro - absolutely free. 


You also get access to Educa- 
tional Computing’s ‘School Link” 
and Prestel’s huge 300,000 page 
database, including world news, 
business & share bulletins and 
optional homebanking. For only 
£16.50 per quarter, that’s less than 
the price of a daily paper! 

Micronet is unique amongst 
networks and bulletin boards as it 
keeps your phone costs very low with 


“ micronet, 
GOL 


special local* rate calls whenever 
you connect up — that’s around 40p 
for a whole hours entertainment 
each evening. 


The only accessory you need is 
a Modem, to get the best value for 
money around in micro communi- 
cations. 

Fill in the coupon for the full 
facts and send to Micronet 800, 8 
Herbal Hill, London ECIR5EJ. But 
be warned, Micronet 800 is a ‘living’ 
service with ever-expanding fea- 
tures. So maybe you'd be better to 
call in at your local Micronet 800 
Action Station. There are thousands 
of Micronetters waiting to meet you ! 


* For 98% of telephone users. 
peste) is a trademark of British Telecommunications plc. 
restel 


MEDIC DATASYSTEMS 
DISK DRIVES 


At last, the definitive QL expansion system has 
arrived: 


EXTRA RAM 1 DISK DRIVE 2 DISK DRIVES 
~ £249 £399 
256K £359 £509 
512K £449 £595 


The above systems use 3.5” 720K Mitsubishi 
drives, include parallel printer interface, RAM 
disk and the following FREE software: M-DESK, 
M-BASE, M-ACCOUNTS, M-KEY, M-SQUEEZE, 
M-SPELL, M-MERGE, M-BOOT, M-TRANSFER, 
M-COPY. 


DISCOUNTS: Deduct £10 for orders received by 
the end of October or £20 if order totals more 
than £350. d 


We sell a wide range of other products for the QL 
at equally competitive prices. Just write or 
telephone for details. 


PRICES INCLUDE VAT AND DELIVERY 
EXPORT ORDERS WELCOME (NO VAT) 
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ItS easy to 
complain about 
advertisements. 
But which ones? 


Every week millions of advertisements 
appear in print, on posters or in the cinema. 

Most of them comply with the rules 
contained in the British Code of Advertising 
Practice. 

But some of them break the rules and 
warrant your complaints. 

If you're not sure about which ones they 
are, however. drop us a line and we'll send you 
an abridged copy of the Advertising Code. 

Then, if an advertisement ae | 


you, you'll be justified in bothering us. 
The Advertising Standards Authority. 


If an advertisement is wrong, were here to put it right. 
ASA Ltd. Dept 2 Brook House. Tornngton Place. London WCIE 7HN 
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INC. VAT, POST & PACKING ON 
MICRODRIVE CARTRIDGE 


SEE US ON THE 
ATARI STAND 
AT THE PCW SHOW 


THE QL RACING GAME! 
FROM 
ENGLISH SOFTWARE 
TEL: 061-855 1558 


The ENGLISH SOFTWARE Co. 
1 North Parade, Parsonage Gardens, 
Ci Manchester M60 1BX 


N 


PORT 1 = A 
DYSTICK 

e.g. for RAMpack Pepellleg 

PORT 0 ADAPTORS# 


e.g. for DISC i/f 
; v 


CENTRONICS 
PRINTER 
INTERFACE 


DOUBLE EXPANDER 
CENTRONICS PRINTER INTERFACE £29.95 inc. 


* 12 month guarantee. 
* Connects OL to any CENTRONICS compatible printer. 
* fully self-contained with 3 metre cable. 
* Plugs directly into SER1 port and directly into printer. 
* Fully compatible with QDOS, SuperBasic, and PSION packages. - 


SCREEN DUMP £4.99 inc. 


* Copies OL screen image to printer. 
* Supplied on microdrive cartridge. 
* Contains other useful software. 


~ DOUBLE EXPANDER £39.00 inc. 


* Connects up to 2 expansion cards to QL. 
* Ideal for RAMpack and DISC interface combination. 


JOYSTICK ADAPTOR £4.99 inc. 


*4 Plugs into either CTL1 or CTL2. 
* For use with Atari/Commodore style joysticks. 


5 Qu MOUSE — Call for details. 


Please contact your computer dealer or send your order 


with cheque to: 
MIRACLE SYSTEMS LTD Sinclair and QL 
are Trade Marks of 


Avondale Workshops 
Woodland Way SINCLAIR Research Ltd 


Kingswood ACCESS 
BRISTOL BS15 10L orders 
Tel: (0272) 603871 x 210 |_ welcome 


WARM MBOOOM 


Ever since receiving my QL way 
back in early 1984, I have been 
haunted by the <CTRL>, <ALT>, 
‘7’ problem — I refer to the way the 
QL ‘crashes’ when you press these 
keys simultaneously. I was con- 
vinced it was a ROM bug which had 
slipped through the net that had 
been dragged over releases FB and 
PM. But, as I reveal in this article, I 
was to be proved happily wrong and 
I went on to exploit my findings. 

Tim Fountain, a Sinclair Research 
engineer, assured me that it wasn’t 
a bug at all — indeed, he insisted that 
it was an intentional feature! I 
thought he was pulling my leg. But 
no — he went on to say that the keys 
<CTRL>, <ALT> and ‘7’ were 
used by the Sinclair Research design 
team, when the QL was still on the 
bench, to simulate a non-maskable 
interrupt. The keys are sufficiently 
spaced apart so as not to be pressed 
accidentally. 

Upon pressing this sequence of 
keys, the QL’s secondary processor 
(Intellingent Peripheral Controller) 
~ the Intel 8049 — generates a level 
7 interrupt internally and this in 
turn causes the QL’s primary pro- 
cessor, the Motorola MC68008, to 
jump to a non-maskable interrupt 
server routine normally in ROM. 
Unfortunately, when the QL was let 
loose on the public, someone forgot 
to take out the development facility 
and hence the bug that is not a bug! 

Mr Fountain continued by assur- 
ing me that the effect could be 
disabled using a mechanism within 
QDOS — the QL’s operating system — 
for redefining the vectors which it 
does not use for its own purposes. 

Sure enough, the system calls to 
QDOS to redefine the TRAP vectors 
is TRAP #1 with DO=7, D1 holding 
the job ID (which, for the SuperBasic 
command interpreter, is 0) and Al 
pointing to the new vector table. 
Unfortunately, the QDOS Manual 
doesn’t say much more on the matter 
so I was left to my own devices with 
Psion Software Support not able to 
help me, either. 

After much head scratching, visits 
to the pub, more head scratching 
and even more visits to the pub, I 
have finally found-out how to tame 
the beast and I present my boozy 
efforts for your delectation — hic! 

An assembly language program to 
set up a new vector table is given in 
listing 1. It makes the QL do a warm 
restart whenever <CTRL>, 
<ALT>, ‘7’ are pressed, a privilege 
violation occurs or an illegal instruc- 
tion (other than those starting with 
$Axxx or $Fxxx) is attempted. 
Also, when a CALL command is 


Alan Turnbull turns an ‘intentional’ 


bug to his advantage. 


issued with an odd address (thereby 
generating an address error excep- 
tion), the machine will not crash but 
return to the main SuperBasic com- 
mand interpreter loop. This happens 
in the ROM anyway but needs to be 
copied here. 

What I mean by a warm restart is 
essentially the same as that done by 
Listing 1 


# with CALL a. 
t 


' 
© COPYRIGHT {c) August 1985, Alan Turnbull, B.Sc. 
+ 


* 


PERERECEESTEEESEA LEE ESESERELEE PEEEAEERERESEERAEEEEDEEELEROES 
oe 


& 

# Motorola MCb8008 progras to provide a ‘ware reset’ 
# facility by re-defining the <CTRL>, <ALT>, ‘7’ effect. 
# Also, vectors which noraally cause the OL to ‘crash’ are 
# re-defined to cause a ware system restart instead. 
‘ : 


§ Assemble, save to Nicrodrive, reserve aeaory with 


# sonething like LET a=REGPR(256), load code into eeaory 
# with something like LBYTES advi_code,a’ and activate 


# Alternatively, run progras in Listing 2. 


the QL when you press the reset key. 
Except that the RAM is.not cleared, 
although system variables: are in- 
itialised. This is not quite the same 
as a ‘true’ warm restart but does 
enable you to ‘recover’ partially by 
saving part of RAM to Microdrive or 
disc. So what did you expect — a 
‘Quantum Leap’? 

The routine was developed ona JS 
QL. and, unfortunately, the warm 
restart routine on the QL is not 
vectored. I therefore provide the 
other addresses for you — just pick 
the relevant one and substitute its 
definition in the assembly listing. 
Those of you who do not have access 
to an assembler and. wish to enter 
the code using a BASIC loader 
should enter listing 2. This loader 
automatically inserts the correct 
address for the warm restart routine 
in your particular ROM release. 

Any QL owners still with FB or 
PM (remember — type ‘PRINT 
VERS’). should immediately return 
their machine “to Sinclair with a 
covering note, regardless of guaran- 


be 
* 
+ 
# 
+ 
4 
+ 
* 

: * 
i 
bi 
# 
# 
* 
’ 
+ 


HEESEEEEEAEEEEEETOESEOEET EEE EEEEEEESEGEEERESSEEEEES EEEREEE 


BAGIC_J0B EQU $00 GuperBASIC job 1D : 
MT_TRAPY EQU $07 TRAP #1 key for TRAP redirection 
WARM_RESTART AH  EQU $01CA Ware restart for ‘AH’ ROM (QD05 v1.02) 
WARM_RESTART JM  EQU $01 fs above but for ‘dN’ ROM (QD09 v1.03) 
WARM_RESTART JS © EQU $0100 As above but for ‘JS° RON (DOS vi, 10) 
WARM RESTART ISU EGU S01CE As above but for ‘J8U° ROM (QD0S villio) 
WARM RESTART MG = EQU site As above but for MG’ ROM (Q008 vi. 13) 
NEWDIV BY ZERO © EQU $005E 
NEW_CHK_INSTR bau $005E 
NEW_TRAPV_INSTR © EQU S005 
NEW_TRACE EXCEPT EQU —  $005E 
NEW_TRAP_05 Eau $005E 
NEW_TRAP_06 EQu $005E . 
NEW TRAP_07 Fou = $0056 
NEW_TRAP_O8 Eu S005E Address of RIE’ in ali ROMs 
NEW_TRAP_09 EU = «$005E : 
NEW_TRAP_O#8 EQU = S005E 
NEW_TRAP_OB Fou $005E 
NEW _TRAP_0F fQU = SO0SE 
NEW_TRAP_OD Fou «S005E 
NEW_TRAP OE Eau S005E 
NEW_TRAP_OF EGU = S005E 
VIDEO_RAM Eau $20000 Start of video RAN : 
SV_RANT EQH $28020 System variable that holds RAN top + 
SY_STACT EGU #28480 End of fixed system variables 
LEA TRAP_TABLE,Al Point to new TRAP vector table 
LEA NEW_ADDR_ERROR, AO. 
WOVE.L  AO,ADDRESS ERROR-TRAP_TABLE(AI) 
LEA NEW_ILL_INBTR,AO : : . 
NOVE.L AO, ILLEGAL _INSTR-TRAP_TABLE(A1) Load new vectors : : : SF : > 
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LEA ——_-NEW_PRIV_VIOL,A0 tee validity — these ROM releases 


MOVE.L  0)PRIVILEGE_VIOL-TRAP_TABLE(AL) and accompanying Psion suites are 
LEA _NEW_INT_LEV_7,A0 mee - 
WOvexy 96,101 LEV Jott TASLEVOU obsolete and no longer officially 
NOVEO BASIC _J0B,D1 Signal SuperBASIC job supported. 

MOVED —@HT_TRAPV,D0 Re-define trap table Version JSU is the US version of 
TRAP ii Do ‘ganager’ TRAP 


JS and MG isa slight improvement 
on JS with a few minor bug correc- 


RTS Return to SuperBASIC 
TRAP_ TABLE 


ADDRESS ERROR DSL i 
ILLEGAL_INSTR DSL i 


REMark Super BASIC to implement M in Listi 
DCL —_NEW_DIV_By_7ERO REMark COPYRIGHT (c) April 1985, Alan Turnbully BSc. 
DCL NEW CHK INSTR LET reser ved_address=RESPR (128) 
DELL NEW_TRAPV_INSTR RESTORE 
PRIVILEGE _VIOL = DS. { eal 2 agement 
eat read_and_store_data 
INT LEV te ee IF EOF THEN EXIT read_and_store_data 
oo oe « READ data_item 
DL NEW TRAP. 05 BG address,data_item 
‘< - ET address=address+i 
OC.L NEW _TRAP_06 END REPeat 
ee ood Pert as aetedaae 
eS STOP 
DCL NEW_TRAP_08 2 
DC.L NEW_TRAP_09 250 DATA 67,250,0,10,48,120,1,16,78,144,78,117,0,1,0,48,4,47,65, 76, 76,0,0,0,0,1, 
dC.L NEW TRAP OA 0,12,5,81,68,79,835,56,0,0,0,0,187,203,102,36,114, 1120,1,26,78,144,34,110,0,8 
‘ IRAP 8,93,73,61,188,0,4,152,0,112,0,78,65,45,130,152,2,45,735,0,88,120,1,78, 112,24 
DCL NEW_TRAP_OB 1,78,117,48,120,1,24,78,144,102,20,229,139, 103,240,215, 46,0,88,47,54,152,0, 76,24 
DCL NEW TRAP_ OC 6,63,254,152,4,112,241,78,117 


DE.L —_-NEW_TRAP_OD 
DCL ——NEWTRAP_OE 
DCL NEW TRAP_OF tions and better ‘foreign language 
independence’. I do not yet have 
: confirmation of the official release of 
WEW_ADDR ERROR  ADD.L 88, A7 Skip over extra words on stack these ROMs. 

RTE Return from this exception I hope this article has been of 
NEW_ILL_INSTR interest to those QL owners who 
thought they had found a major bug 


and had no chance of correcting it. 


* (Effectively the same as the corresponding routine in ROM) 


NEW PRIV_VIOL 


NEW_INT_LEV_7 NOVE.W  #$2700,5R Set ‘supervisor’ rode, aask-out interrupts 1-6 and clear ‘user’ flags With a little lateral thinking the 
elie Ne ae ig eo. ae ae needed by ware restart problem has not only been eradi- 
RAM, start of video 7 as 
MOVE.L © @SV_STACT-VIDEO_RAH-1 ,DO Nuaber of bytes to top of fixed system variables a se but = useful addition to. the 
AGAIN CLR.B (AD) + Clear a byte (also provides a delay to stop other lev. 7 interrupts) Ql Ss specification has been provided 
ae eile ne a a seokad micregee cs without using a soldering iron, 
f a 38, cint to wara restart routine in ‘JS’ RON i a i 
Pg nee sticky-back plastic or even card- 


board tubes! 


APPROVED 
for use with 
telecommunication systems 
run by British 
Telecommunications 
in accordance with the 


conditions in the 


Q-CONNECT 


Complete RS232 output for general communications from 
75-9,600 baud with full two-way buffering and flow control. Plus 
all the software on a micro drive to support all 3 modules. The 
software includes Prestel Viewdata/Videotex AND VT100 
emulation, as well as user-to-user communications with error- 
corrected file transfer (with encryption for security) and many 
other features including a telesoftware downloader. 

Connects to the QL's SER 2 port allowing the micro to be 
used with virtually any asynchronous modem and for general 
data communications. 


Q-MOD 


Manual dial V23 modem operating at 1200/75 baud and 
1200/1200 baud half duplex. 


Q-CALL 


Provides traditional pulse/loop disconnect auto-dial and 
auto-answer. 


Prestel and Telecom Gold are registered trade marks of British Telecommunications plc. 
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More contemptible, contrite 
communication from the 
shadows, penned by 
Silhouette. 


With the widely rumoured 
and recently confirmed price 
cut upon us, the QL seems set 
to burst upon the home and 
dare I say, games market. At 
such a ‘bargain basement’ 
price (£199.95), despite a , 
limited software base (soon to 
change, no doubt), anyone 
contemplating a purchase this 
Christmas would be foolish 
not to consider the QL. Here’s 
a machine that moré than 
adequately fulfills the role of 


‘home micro’, catering for the 
home professional (Psion 
packages), enthusiast (it’s 
CPU and operating system 
beat the others hands down) 
and games player (soon, 
hopefully) and at a price only 
marginally above the 
Commodore 64 and Spectrum 
—the two market leaders. You 
can keep your Atari’s, 
Amstrads and Amiga’s, ’m 
sticking with the QL! 

And now ... over to Acorn, 
where the decision to put a 
16-bit version of the 6502 (a 
2-bit chip if ever there was 
one) inside its ICL OPD 
competitor (called, I believe, 
the Communicator, or is it the 
Terminator?!) is causing some 
merriment. Interestingly the 
6502 is hardly pushed by the 
demands placed upon it by a 
mere terminal program (and 
View?!). Seems to me that 
Acorn’s upgrading for no 
reason. 

Next — a wind up. When isa 
PR rep not a PR rep? Answer — 
when he’s being 
impersonated, for that’s what 
happened to a certain 
employee of Commodore’s PR 
company. Yes, some unknown 
character phoned a few 
software houses around the 
country, promised them 
immediate delivery of an 
Amiga next day, and told 


organising upgrades? 
them that the machine was to 
be released at PCW for £495. 
As you can imagine, this 
rumour shot around the 
country at lightning speed, 
until the real rep heard it. He, 
apparently, was a mite peeved! 
Psion and the ubiquitous 
David Potter have not been 
entirely idle of late. It seems 
they’ve got enough employees 
left to update Archive a little 
(Let’s face it, it needed it). The 
new product is designated 
V2.30 (or 31) and will 
doubtless be distributed with 
new QLs, so let’s take a look — 
the programs (the whole Psion 


cae 


MUNI 


software. 


_Dr David Potter, founder and Managing Director of Psion, caught pontificating — or is he 


suite of four) can now be 
executed after each other 
without the need to reboot. 
That’ll be useful. Quill can 
now import single lines and 
paragraphs. Great! Easel is 
supplied with 10 printer 
drivers. Should have been 
done in the first place. 
Perhaps the company really 
does intend to put the things 
in ROM? 


Z SILHOUETTE 


The Publishers wish to point out that the statements 
and opinions expressed here do not necessarily 
reflect those of QL User or its staff. Statements 
made by Silhouette are purely subjective and should 
be treated as such. 


CATIONS 


system full advantage can be taken of the 
integrated features of the Q-CONNECT's 


If you'd like to know more, simply 
complete the coupon. 


SINCLAIR QL 


. Thanks to Tandata you can now convert 
your QL into a powerful and comprehensive 
communicating terminal. You can contact 
distant databases such as British Telecom's 
Prestel system, private viewdata systems, 
traditional ASCII databases and electronic 
messaging/mail services such as Telecom 


I'd like to know more about 
The three smart modules have been Tandata communications 


designed to match the QL in style and for | for the QL. 
added convenience they stack together using l 


VT100 terminal and enjoy secure 
communications with other QLs. | 


vertical bus connectors without the need for 


Gold. You can even replace your existing interconnecting cables. | Name 
The modules are available separately, 
but by using all three as a complete matched | Address 


et Ae 


ee 
— 


Tandata 


Tandata Marketing Limited | TelNo 


Albert Road North, Malvern, Worcs. WR14 2TL. . 

Telephone: 06845 68421. Telex: 337617 TandatG, | Send to: 
Prestel *799# Telecom Gold 81: TANOO1 Tandata Marketing Ltd., 

A subsidiary of Tandata Holdings ple. | Albert Road North, Malvern, | 


2. —r—=«saw L. __Wores.WR142TL. 
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Continuing our series Adam 
Denning takes up where most other 
languages leave off and examines 
C’s most powerful tool — the 
composite data structure. 


The ability to handle complex data 
types sets C apart from its ancestors. 
Integers, characters, arrays and real 
numbers are just a beginning. With 
the use of an aggregate data type it 
is possible to hold many items of 
connected information in a single 
‘variable’. Unlike an array each 
component item need not be of the 
same type, and each may be indi- 
vidually named so that we can refer 
to it later on. 

This mysterious data item is 
known as the “structure”, and 
anyone who has programmed in 
Pascal or Algol will know its use- 
fulness. We define it within in C 
program using the keyword struct, 
like this: 
struct mystruc{ 

char *name 
int i; 
struct mystruc *ptr; 


’ 

What we have in fact defined is 
simply a ‘template’ for use later in a 
program. It is important to note that 
no storage space is reserved for any 
data, as no variables have been de- 
clared as being this type of struc- 
ture. 

The definition begins with the 
struct keyword which may be fol- 
lowed by any valid C identifier — in 
this case mystruc. This identifier be- 
comes the structure “tag”, and is the 
name with which we declare any 
variables which we want to be struc- 
tures of this type. We’ll see later that 
the tag is entirely optional but highly 
useful. 

Within the braces (‘{’, ‘}’) we go on 
to define each member of the struc- 
ture. In our example we've chosen, 
totally arbitrarily, to have a character 
pointer called name, an integer called 
i and a pointer to another mystruc 
type structure called ptr. Now, each 
member of our structure does not 
itself constitute a variable; the names 
and types of each member simply 
pre-warn the compiler of what it can 


expect to find in a mystruc structure 
whenever it subsequently encounters 
one. 

Notice that each member inside a 
structure can have any type, includ- 
ing other structures and pointers to 
structures. Now, our definition tells 
the compiler all about the ‘mystruc’ 
type of structure, and because we’ve 
given the definition a tag, we can 
refer to that type of structure any- 
where else in the program simply by 
writing struct mystruc 


<something>. This means that we 
could declare a few variables as being 
*mystruc’ structures like this: 


struct mystruc first,second 
[20],*third; 

This declares first as being a 
straight mystruc structure, second 
as being an array of twenty mystruc 
structures, and third as being a 
pointer to a mystruc structure. If 
this statement occurs in a place 
where variables may be declared 
then space will be reserved by the 
compiler for these three variables 
and they come into existence. 

Before we look at how we can 
access each member of a structure, it 
is important that we get the method 
of declaring them sorted out, as it’s 
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quite complicated. The method we 
used above was to define the struc- 
ture template with a tag, and use 
this tag subsequently in real dec- 
larations. We could equally have 
followed the. template definition 
with our declarations: 
struct mystruc{ 
char *name 
inti; 
struct mystruc *ptr; 
} first,second[20], 
*third; 
This technique is a lot more compact 
though note that where we declare 
the variables within our program 
will determine their scope. That is, if 
this declaration occurred outside of 
any function, the variables would be 
global. 
Less frequently used and much 
less useful, is the following: 
struct{ 
char *name; 
int i; 
struct mystruc *ptr; 
} first,second[20],*third; 
You probably see the problem 
straightaway! As the structure was 
defined without a tag, the compiler 
has no idea what a ‘mystruc’ struc- 
ture is, so it will complain about the 
struct mystruc *ptr; part of the 
declaration. So, it is good practice to 
tage each structure definition. 


Accessing Structure 
Members 


Now that we have sorted out the 
ways in which structures may be 
defined and declared, we can look at 
how to use them. If we take our 
identifier first, which we declared 
earlier as being a mystruc type 
structure, we can use the “structure 
member operator” to get at each 
member. The symbol for this oper- 
ator is a full stop, ‘.’ (Pascal devotees 
will recognise it as being the same 
as the operator used to refer to 
individual members on a record.) It 
is used like this: 
structure . member 
and, as it refers to a location in 
which a value may be stored, the 
expression refers to an lvalue. So, to 
put a value into a member of a 
particular structure, we type 
first.i=25; 
and to get the value of a member, we 
use 
if (first.i==25) puts(‘\nSuccess!”); 
or whatever. 

So far so good, but the number of 
operations which may be applied to 
structures is limited. The problem is 
that we cannot pass whole struc- 
tures to functions and cannot per- 
form ordinary mathematical opera- 
tions upon a structure as a whole. 
Certainly we may pass the values of 
individual members, but if we want 


a function to act upon a structure we 
generally need to pass it the address 
of our structure. And you know what 
addresses mean — pointers! 

As an example, suppose we had a 
function called doit which needs 
some of the values in our first 
structure to act upon. We could pass 
all of the necessary values as para- 


* meters, but this would be messy: 


first.i=doit(first.name,first.i); 
and later on 
doit(par1,par2) 
char *parl]; 
int par2; 


return some value; 


A much easier and far more elegant 
way would be to pass doit the 
address of first, so that it can treat 
this address as a pointer to a struc- 
ture: 

doit(&first); 
and then 
doit(par1) 
struct mystruc *par1; 


body of function 


Yet how do we allow the body of doit 
to refer to individual items within 
the structure? It has the address of a 
structure, not the structure itself. 
Our little exercise in pointers last 
month should help. We could use 
(*par1). member 
(The parentheses are necessary be- 
cause ‘. has a higher precedence 
than “’). This is quite satisfactory 
and will certainly work, but as 
structures near enough demand the 
constant use of pointers, the C lan- 
guage provides another operator to 
shorten the amount of typing. This 
is known as the “structure pointer 
operator”, and the symbol used is 
—>. Using this operator, the ex- 
pression above would be written as 
par1l—> member 

which is far easier to type! It is 
important to remember that 

(* structure_pointer).member 

and 

structure_pointer—>member 
are identical in every respect, so 
that the —> operator is nothing 
more than convenient shorthand. 

Just as we cannot pass whole 
structures to functions nor may we 
return whole structures from them. 
Once more pointers come to our 
rescue and we can declare a function 


as returning a pointer to a structure 


in the standard way: 
struct mystruc *myfunc(); 

This declares myfunc as being a 
function which returns a pointer toa 
mystruc type structure. All these 
pointers, although initially confus- 
ing, soon become second nature as 
they are so fundamental. Remember 
that a pointer to a structure is no 


different to any other sort of pointer, 
so it may be incremented, de- 
cremented, added to integers, and so 
on. This is particularly useful when 
we're dealing with arrays of struc- 
tures. 

You may remember that our dec- 
laration of first also included the 
declaration of second, which was an 
array of twenty mystruc structures. 
This means that second is an iden- 
tifier which refers to an array, and 
as it is the array name itself it 
follows the same rules as other array 
names. In particular, it is NOT an 
lvalue. Naturally, we can pass the 
address of the array to functions and 
use it in expressions. 

In much the same way as we can 
initialise every element of an array 
using a pointer and a loop: 
for (i=0;i<20;i+ +) *array+ +=0; 
so too can we initialise members 
of structures in an array given a 
pointer to that array: 
for (j=0;j<20;j+ +) (ptr++)—>i=0; 

Having examined all the concepts 
surrounding structures, let’s look at 
a typical program segment using 
structures to see if we can work out 
what it’s doing. 

Somewhere in our program, we 
have a structure definition thus: 
struct term { long elem; char 

op_t; }; 
and one of the functions in our 
program declares a large array of 
these structures which it needs to 
manipulate. Part of the manipula- 
tion is carried out by a function 
called level5, which is passed a 
pointer to the start of the array of 
structures and an integer which 
tells level how many elements of 
the array need to be manipulated. 
Remember that each element of the 
array is a term type structure. We'll 
continue the story with the defini- 
tion of the function: 
level5(p,num) 
struct term *p; 
int num; 


struct term *q,*r,*s; 
long docalc(); 

q=P; 

while (p—q<num) 


while (p—>op_t==NULL && 

p-—q<num) + +p; 

if (p—p==num) return; 

r=p+]; 

while (r—>op_t==NULL && 

r—q<num) ++r; 

if (¢—q>=num) return; 

s=r+]; 

while (s—>op_t==NULL) ++s; 

s—>elem=docalc(p—>elem,s 

—>elem,r—>elem); 

p—>op_t=r—>op_t=NULL; 
a 
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This is nothing like as complicated 
as it looks! The function contains 
three local variables q, r and s, 
which are declared as being pointers 
to term type structures. Notice that 
a function used by docalc is declared 
as returning long; if this declaration 
wasn’t included, the compiler would 
expect docalc to return an integer. 

As p, q, r and s are all pointers to 
term type structures, it is perfectly 
in order for us to assign p to q, which 
we do with 

q=Pp; . 
Likewise, now that p and q point to 
the same array, subtraction of the 
pointers, which yields an integer 
value corresponding to the number 
of elements between p and q, is quite 
legal. So, the expression 
(p—q<num) 

will be TRUE (1) when the number 


until one is found whose op_t mem- 
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£13: Hyperdrive 
1 Cuthbert in Space. 
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of elements between p and q is less | er does not have the value NULL. 
than the number of elements to be |Once this has been found, the | that a little help from the author 
considered (num). Within the body | address of the next element in the | always comes in handy! 

of the while loop controlled by this | array of structures is put into r with Next month, we'll write a program 
expression, we increment p (with r=p+l 
++p) until the element it points to | andr is then incremented until it too | purpose, and we'll also look at 
has an op_t member which is not |points to a structure whose op_t | another related data type called the 
NULL or until p—q is equal to num. | member is not NULL. The same | “union”. As Metacomco has just 
This means that p is made to skip | operation is carried out with s. This | released Lattice C for the QL, we'll 
over each structure in the array | leaves us with p pointing to the first | also be taking a close look at that to 
non-NULL structure (actually the 


first structure in the array with a 
non-NULL op_t member) in the 
array, r pointing to the next, and s to 
the one after that. The elem mem- 
bers of these three structures are 
then passed to the docalc function, 
which performs some operation and 
returns a value which we put into 
the elem member of the structure in 
the array pointed to by s. After that, 
the op_t members of the structures 
pointed to by p and r are set to 
NULL, and the value of s is put into 
p. The while loop then reiterates 
until its terminating condition be- 
comes FALSE (0). — 

So, a function which looks fairly 
complicated actually.turns out to be 
rather simple. This is really the 
essence of C: a little bit of study soon 
turns even the most complicated 
operation into something easily 
understood, although it must be said 


; which uses structures for a real 


see if it lives up to expectations. 
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| i ification C Compiler 
- a professional s ification 
for the aL! Designed By LATTICE ‘“ ’ 
QL Cis acomplete imp era rn of C-OL Cis 
iqhan and Ritcnie n of C. 
ait by Sinclair Research; it is the most 
werful and fully featured C compiler 


QL PASCAL £89.95 never 


Pascal compiler which conforms fully to the ISO 7185 
international standard. Approved by Sinclair Research. 
Features: fast single pass compilation — no inter- 


mediate stages; produces native 68000 code; full 
available for the QL. ISO 7185 level 0; direct addressing of complete 
: itchie QL address space; easy to use QDOS interfaces; 
> Complete Kemi and Rit very large sets and arrays. 
implementation. 


i ible 
LATTICE ® design, compati 
= ant Se ompiee on IBMPC, etc. 
> True compiler producing native 68000 
code. 
> Full floating point arithmetic. — 
> Powerful data types such as pointers, 
arrays, structures, and unions. a 
> Comprehensive library of UNIX, QD 
and utility functions. 
> Over 90 detailed error messages. 
> Separate compilation. 
> ae conditional compilation, and 
other pre-processors. fee 
inker to link program modules; w! 
” tink to other relocatable binary modules. 
> Chosen by Sinclair Research as the C 
Compiler for the QL. 


ASSEMBLER £39.95 we.vex 


Ahigh specification macro assembler supporting 
the full Motorola instruction set. 

Features: external references; absolute, position 
independent, and relocatable code; linker; precise 
error messages; formatted listings; macro expansions; 
conditional assembly; and a large range of directives. 


BCPL £59.95 we. vor 
A true compiler, ideal for systems programming - 
writing utilities, games and applications. 
Features: generates native 68000 code; run 
time library includes easy QDOS interfaces; link 
loader links separately compiled segments; 
modules can be linked with Pascal or Assembler. 


LISP £59.95 wwe.vesr 


A LISP interpreter for exploring “The language 
of artificial intelligence”. 

Features: Turtle graphics; compatible with LISP 
for the BBC micro; full support of QL features; 


structure editor; prettyprinter; garbage collector 
andtracer. 


AAR T= 
WE NOW HAVE SOFTWARE AVAILABLE FOR THE ATARI ST. 
Available from W.H. Smith, John Lewis, HMV, 


Menzies, Dixons and other leading retailers or Phone today or post this coupon to: Metacomco, 26 Portland Square, Bristol BS2 8RZ. 
direct from Metacomco. 


Please send me QL C £99.950 QL PASCAL £89.95 0 ASSEMBLER £39.95 OBCPL £59.95 
| LISP £59.95 J. MORE INFORMATION L111 enclose a cheque for £__ or debit my 
m PT Cy oer access/visano:L LTT TT ITITITII 111 


Card Expiry Date 
| NAME 
26 Portland Square, Bristol BS2 8RZ. 


ADDRESS | 


Every DEVELOPMENT KIT includes Metacomco's 
popular screen editor, and a detailed manual. All 
KITs will operate either on a standard QL or else 
‘using QL peripherals such as floppy disks or 
memory expansion. 


Tel: Bristol (0272) 428781 SIGNATURE 
Trademarks: UNIX-AT+T Bell Laboratories; QL,-QDOS - Sinclair Research Limited POSTCODE TEL NO: 
l Price includes VAT, postage and packing UK mainland only.-Delivery, allow up to 28 days. 
mat ES Sa 
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Qspell, published by Eidersoft, 
is a spelling-checker and 
proof-reader, designed for use 
in conjunction with the Quill 
wordprocessor. Just the thing 
for illiterates like wot we 
journalists are! 

You may be surprised to 
learn that the 70K default 
dictionary contains about 
25,000 words, using data 
compression techniques. In 
addition to this, there is room 
for about 1000 words of your 
own. These are most likely to 
be added during proof- 
reading. If @spell comes across 
a correct word with which it is 
not familiar, then you have 
the option of adding the word 
to the dictionary, either as a 
normal word or proper noun. 
So as not to use too much of 
the remaining space, Qspell 
only remembers the newly- 
learnt words whilst the 
computer is switched on, 
though you are able to save 
the dictionary for a permanent 
record. The master cartridge 
includes a routine to ‘doctor’ a 
copy of Quill, so that it can be 
used to load and edit Qspell 
proof-read files. 

Word freaks will be : 
especially attracted by the 
dictionary-search facilities 
available. These include 
Crossword search which 
matches words to such inputs 
as ‘m?ga??ne’ or just ‘maga*’ 
(this finds both the singular 
and plural versions), 
Anagram search and Puzzle 
search. This last option will 
list all the words which are 
contained within other words 
(not unlike a competition or 
two we’ve run in the past). 
Just for fun, we tried it out 
with words of 15 or more 
letters, giving it two copies of 
each letter in the alphabet, 
and were quite impressed to 
find 22 words of this length. 
Three copies of each letter 
increased this total to 53. 

Finally, a couple of routines 
allow you to compact 
dictionaries after modifying 
them and configure the Qspell 
printer drivers. Altogether a 
well-presented and well 
documented package. If you 
have a need for this sort of 
program, then Qspell’s ideal. 
Eidersoft 


g* 
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As you probably guessed, 
given the rather blatant 
name, Zapper is one of your 
typical “shoot ’em up” games. 
Based loosely on the 
original Galaxians-type of 
game, the demonstration 
mode shows a total of eight 
levels. With your supply of 
three spaceships, you must 
zap away at the slow-moving, 
descending aliens. Having 
cleared the screen, another set 
appears which, although a 
different type, seem to follow 
very similar patterns. Perhaps 
the saving feature of the game 
is that the aliens do move 
fairly erratically and speed up 
considerably when there are 
only a few left on the screen. 
This makes the game harder 
than it first appears, though 
practiced arcaders will, no 
doubt, find the game overly 
simple, even with increasing 
speed. Just in case you do find 


play for any length of time, 
there’s an extra ship after 
10,000 points. I lost interest 
before discovering whether 
you get another ship after 
20,000. 

When shooting the nasties, 
you have to be fairly accurate 
with a near-centre hit. It can 
be quite disconcerting when 
you're used to getting in that 
final shot before sliding out 
from under the attacking 
alien. On Zapper this doesn’t 
work firstly because that last 


minute shot will probably not 


be near-centre, and secondly 


because the control response is 


too sluggish. 

The overall effect is of a 
game hurriedly thrown 
together to cash-in on the 
present lack of available 
software for the QL. Even the 
function keys for ‘sound on’ 
and ‘sound off are the wrong 
way round. 

If you’re particularly 


the game intriguing enough to 


interested in zapp-em games, 
then it’s worth considering 
Zapper. However, if you are 
that keen then this version 
isn’t likely to hold your 
attention for very long. 
Eidersoft 


What with Sinclair’s 
determination to go on with 
microdrives, Cartridge Doctor 
must be the product everybody 
has been waiting for. 
Essentially a semi-intelligent 
program to recover lost data 
from damaged cartridges the 
package also includes a 
number of generally useful file 
utilities. 

The main program called 
autoclone allows you'to copy 
from one cartridge to another. ° 
Nothing unusual here until 
you realise that in the course 
of copying, the routine will 
automatically extract 
programs which have been 
accidentally deleted or piece 
together those that have been 
corrupted. A cure then for the 
‘bad or changed medium’ 
message, or the even more 
infuriating endlessly running 
tape associated with damaged 
cartridges. 

Other features include a file 
patch utility which is used by 
autoclone but may also be 
accessed manually. A salvage 
section allows files to be copied 
in part to a new file. There are 
also facilities to list directories 
and transliterate. The latter 
allows you to copy across a file 
whilst replacing every 
occurrence of a given 
character with another. 

If you make use of 
microdrives this package is 
virtually indispensable. 
Certainly, during the period of 
review, we had cause to use it 
extensively and at one point 
found that it saved us over six 
hours work. 

Talent 


A JCI a ~ oC 


The SuperBasic Extension 
EPROM (or SEE for short) is 
an unusual conglomeration of 
routines (about 70) designed 
to appeal to all QL users some 
of the time. Its obvious 
advantage over other toolkits 
is that everything is in 
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EPROM, rather than taking 
up valuable RAM. 

_ Inmany areas SEE’s 
routines overlap with Sinclair 
Research’s own Toolkit. Also, 
similar to that product, the 
usefulness of the routines 
depends upon the level at 
which you are programming 
the QL. For instance, alarge . 
number of routines are 
devoted to job and data 
management, stream and file 
handling and use of machine 
code. 

On the whole, routines tend 
to be short cuts to using 
standard QDOS traps. For 
example, the new command 
QTRAP allows you to pass and 
receive information from all 
three QDOS traps in one go. 

For the less able 
programmer SEE provides a 
number of genuinely useful 
procedures. On the utility 
side, the package adds trace, 
function key definition and 
hex/decimal conversion 
facilities. Elsewhere there are 
additional graphics commands 
for alternative fonts, cursor 
control and window definition. 
In the latter case commands 
SSAVE, SLOAD and SSHOW 
enable windows to be 
refreshed when they have 
been overwritten and can lead 
to the creation of Macintosh or 
GEM style pull-down menus. 
Finally, games programmers 
will be interested in HIGHS, 
SCORE and SETHIGH which 
allows for the automatic 
creation and printing of high 
score tables. 

Whilst SEE may well be of 


use as an advanced toolkit it is’ 


essentially for those looking to 
operate the QL as opposed to 
program it. 

Hi Soft 


Modem Moves 


The software that comes with 
the Brightstar modem will 
cater for the needs of most 
users. Qterm, a rather special 
terminal emulation package 
from Datamanagement in 
York is aimed at the “out and 
out” communications devotee. 

The main purpose of the 
program is to allow Brightstar 
users to join and log onto 
Datamanagement’s dedicated 
QL database/bulletin board 
called ‘Citadel’. As such it 
offers all the facilities 
required by this service. The 
most important of these is the 
implementation of the 
Xmodem Ward- 
Christerpherson data transfer 
protocols. 

These allow file transfer 
between two modems (both 
running the software) to be 
entirely corruption free and 


consequently thoroughly 
reliable. A claim that is 
difficult to believe! However, 
we put it to the test and 
transferred from London to 
York an 86K file. Suffice it 

to say the transfer was 
completely successful, taking 
some twenty minutes at 1200 
Baud. We were impressed and 
the people at the other end 
who were in dire need of the 
software were extremely 
grateful. 

Qterm despite its 
specialised appeal is fairly 
straightforward to operate. Its 
various features are accessed 
via the function keys. It 
makes good use of the QL’s 
windowing functions and is 
well documented. In short, a 
professional product geared 
for the computer professional. 
Datamanagement 


Character Change 


The Font Editor consists of a 
set of utility programs which 
allow you to do all the things 
you ever wanted to do, anda 
few you probably didn’t, with 
the QL fonts. These are the 
character sets available on the 
QL which Sinclair is so fond of 
calling ‘founts’. 

The main program (the 
editor itself) is similar to that 
expected from the typical 
sprite designer. You first of all 
fetch a font, either from a file 
or a QL window (this will 
probably be the standard 
system font to begin with). 
The entire font will be 
displayed in the standard 
mode 8 character size, anda 
blown-up image of the current 
character will be displayed in 
the edit window. A 
combination of CTRL, the 
cursor keys and the space bar 
will allow you to alter this 
definition to any you may 
choose. Other options allow 
you to reverse and inverse, 
and change characters. 
There’s even a facility which 
allows you to print out a 
message in any colour and 
character size to see how your 
new character font is shaping 
up. 
In addition to the Font 
Editor, the cartridge also 
contains a small SuperBasic 
program, which calls QDOS 
and allows you to load and 
change character fonts in your 
own programs. This is heavily 
documented for personal use 
and supported by two 
alternative files for system 
font one and font two. 

There is nothing 
particularly special about this 
package. Most competent 
programmers could easily 
produce something similar. 


The question to ask, assuming 
you want tobe abletoalter ~ 
the QL fonts, is whether or not 
it’s worth spending the time 
writing the appropriate 
routines when everything is 
provided for only £8. 
Saltigrade Software 


Perfect Pascal 


Metacomco have released yet 
another winner. This time it’s 
Pascal, and has the distinction 
of conforming to the ISO 
standard for that language. 
This guarantees a full 
implementation (including 
pointers, enumerated types, 
and so on) and makes software 
written on the QL compatible 
with many other machines. 

The Pascal Development Kit 
is supplied on an EPROM and 
two microdrive cartridges. 
These are respectively, the 
compiler itself, and the screen 
editor/run-time system. There 
is also a weighty tome 
containing basic information 
on using the kit anda 
language guide. Not for 
teaching, certainly, but a 
useful reference book. 

The first thing to learn to © 
use is the full screen editor. 
This has many features but is 
easily mastered. A variable 
size window, shows the 
current work area within the 
program, and other areas can 
be found simply by using the 
cursor keys, then inserting 
and deleting as required. 
Combining the cursor keys 
with SHIFT and ALT will give 
you larger word and page 
jumps. In addition to this 
there are a number of 
‘extended’ commands to give 
you even greater control. 
These allow such operations 
as splitting and joining lines, 
searching for and replacing 
text, setting margins and tab 
distance, and so on. The 
function keys are also used. 
For example, F1 will redraw 
the window information in 
case it has been corrupted 
(say, by another job), whilst 
F4 will repeat the last 
extended editor command 
line. 

Upon invoking the 
compilation program from 
microdrive you're initially 
prompted for the input source 
file. An optional listing file 
(showing program structure, 
indentifier usage, and 
highlighting any compilation 
errors) and the object code file 
are then entered. You also 
need to specify the workspace 
required (default 20K ona 
basic machine), and whether 
range-checking can be 
omitted. This latter facility 
allows you to speed up 


execution time slightly, once 
you have a program working 
correctly. 

Finally, an additional 
prompt allows you to include 
ISO standard extensions. 
These have been included to 
make use of the QL-dependant 
features. To the dedicated 
programmer, perhaps the 
most interesting and useful of 
these additional commands is 
EXTERNAL. This allows 
programs written using 
Metacomco’s BCPL compiler 
or assembler to be linked with 
a Pascal program. Other 
extension commands include 
QTRAP which allows 
information to be passed to 
and from the 68000 TRAP 
instructions and INCLUDE 
which allows additional 
program segments to be 
included in the source 
program at compilation time, 
allowing the user to create his 
own library routines. The 
INCLUDE statement can be 
used to integrate a suite of 
graphic routines supplied in 
the package, allowing the use 
of windows, plotting, random 
numbers, time and date. 

Before a compiled program 
can be finally run, it must be 
linked to the run-time library 
system. This is easily done, 
and Metacomco have stated 
that though the development 
kit is copyright, the run-time 
system can be copied as often 
as necessary, allowing the 
final product to be used in any 
way you wish. 

An excellent package, and 
highly recommended for both 
Pascal veterans and beginners 
alike. 

Metacomco 


Datamanagement, 12 Larch 
Way, Haxby, York 
Qterm: £19.95 


Eidersoft, The office, Hall 
Farm, North Ockendon, 
Upminster, Essex 

Qspell: £19.95 

Zapper: £10.95 


Hisoft, 13 Goosacre, 
Cheddington, Leighton 
Buzzard, Beds 
SuperBasic Extension 
EPROM: £29.95 


Metacomco, 28 Portland. 
Square, Bristol 

QL Pascal Development 
Kit: £89.95 


Saltigrade Software, 31 
Royal Terrace, Edinburgh 
Font Editor: £8.00 


Talent Computer Systems, 
Curran Building, 101 St 
James Rd, Glasgow 
Cartridge Doctor: £14.95 s 
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| ee sheer good looks, superb design and 
high performance there is nothing to touch 
the Sinclair Vision QL colour monitor. 


Developed in conjunction with Sinclair 
Research, this beautifully compact unit with its 
12” non-glare tube, 85 column text display and 
high resolution colour graphics is the perfect 
partner to the Sinclair QL computer. Comes 
complete with lead and connector for instant 
use with the QL. 


Take a closer look and you'll see that it also 
represents amazing value for money. 


You'll find the brilliant Sinclair Vision QL at 
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your local dealer, supplied exclusively by DDL. 
The data distribution company with a product 
range that is second to none. 

Ring us on Ascot (0990) 28921 for the name 
of your nearest dealer. 


Then you can call in and see for yourself 
what makes the Sinclair Vision QL colour 
monitor such a well-designed little performer. 


5 King$ Ride Park, 
Ascot, Berks. SL5 8BP 
Tel: 0990 28921 

Telex: 846303 DD LIDG. 


THE NE W FORCE IN DISTRIBUTION 
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" This is the page we hand over to 
you. So, if you’ve a program that is’ 


worthy of consideration, send it to 
‘The Progs’, QL User, Priory Court, 
30-32 Farringdon La, London EC1R 3AU. 


We pay for everything published at the 
usual page rates. 


Mini Monitor 

Richard Cross 

Machine code is the only way to get 
the most out of your QL. However, if 
you're learning assembler you'll 
soon discover that whilst your pro- 
grams may compile without prob- 
lems it does not follow that they will 
run as intended. The odds are that 
you will have made a logic error. 
There are two ways to track this 
down. One is to pore over your 
source code going over the entire 
program again and again hoping 
that intuition will make up for 
inexperience. The other is to use a 
monitor to track down the problem 
code whilst the machine code is 
running. 

The following monitor should 
provide an extremely useful debug- 
ging tool. Some 3K in length it 
will happily multitask on your QL 
leaving plenty of room for other 
programs. It can be run by typing 
“EXEC mdvl_mon_ex” and then 
pressing CTRL-C. All input must be 
in hex and preceded by a command 
letter. Commands are: 

R Register dump 

C Rn,xxx Store xxx in Register n 
Kill monitor 

J xxx Jump to location xxx 

A.b xxx __— Byte by byte, alter mem- 

ory from location xxx onwards. 

Address, contents in hex, ASCII and 

a? prompt will display. ASCII 

characters may be entered provided 

they are enclosed within quotes — (eg, 

“a’”) otherwise all values are deemed 

to be in hex>. Press <ENTER> 

to keep current values and type 

to “STOP” return to monitor. 

A.w As A.b hut alters in 


word size chunks 

A.l As A.b but alters in 
longword chunks 

D xxx,yyy Will dump lines of mem- 
ory (Hex and ASCII) in 8 bytes 
chunks to a specified device. Can be 
aborted by pressing <SPACE>. 

M xxx Will move lump of mem- 
ory and prompts for destination and 
size of chunk. 

T xxx Will trace the machine 
code starting from location xxx. 
After each instruction the monitor 
dumps registers and awaits either 
<ENTER> to continue or <ESC> 
to end. Pressing <N> will delay the 
dump for a specified number of 
instructions. 

Breakpoints can be used by in- 
cluding a trap #5 — #15 in your own 
programs, which will halt execution 
and return to the monitor. If you 
wish to insert them from the moni- 
tor use the command A.w 4E46 
wherever desirable. 

All 68000 errors are trapped, 
causing a message to be displayed, 
registers dumped and a return to the 
monitor. Finally, note that even 
running the monitor it is easy to 
crash the QL by corrupting the 
system stack by moving without 
care or jumping to random locations. 

Though it would seem fair to 
assume that most people wanting a 
monitor will already have an 
assembler we have nevertheless 
chosen to publish a SuperBasic hex 
loader. This has the advantage that 
it is independent of any variations in 
mnemonics, addressing modes and 
directives and, with checksums at 
the end of each line ensures errors in 
typing-in are instantly identifi- 
able. Object and (Computer One) 
Assembler source listings are avail- 
able from our Microdrive Exchange. 
Otherwise you'll need to check each 
line carefully. 


10 REMark #### QL User - Monitor by R. Cross #### 
20 length=2970:#$='adv1_eon_ex’ 

25 start=RESPR(length+10):RESTORE :addr=start 

30 FOR a=! TO (length/11) 

35 c=0 

40 FOR b=1 10 11 

45 READ v:POKE addr ,v:addr=addrtlic=cty 

50 END FOR b 

55 READ checksuas IF c(>checksua, THEN PRINT ‘error 
in Line ‘3 (a-1)#10+100:STOP 

60 END FOR a 

65 PRINT ‘saving as ‘;f$:SEXEC #$,start,length,512 
STOP 

100 DATA 96,14,4,0,74,251,0,8, 109, 111,110,777 

110 DATA 105,116,111,114,32,97,0,5,86,67,250, 983 
120 DATA 8,82, 114,255, 112,7,78,65,69,250, 12,1052 
130 DATA 76,36, 143,52,120,0,198,47,250,8,150,1100 
140 DATA 78,146,42,72,52,120,0,198,47,250,8, 1033 
150 DATA 150,78, 146,40,72,69,250,11,210,72,210,130 


8 
160 DATA 48,0,74,57,0,2, 128,52, 102, 12,114,589 

170 DATA 1,116,0,118,255,32,77,112,45, 78,67, 901 
180 DATA 67,250,8,126,97,0,3,246,97,0,6,900 

190 DATA 196,47,250,8,166,97,0,3,234,97,0,1118 
200 DATA 0,136,469, 250,11, 158,72, 210,48,0,49, 1023 
210 DATA 250, 11,150,52,129,38,72, 18,19, 12, 1,760 
220 DATA 0,97,101,10,12,1,0,122,98,4,4,449 

230 DATA 1,0,32,12,1,0,84,103,0,0,224, 457 

240 DATA 12,1,0,74,103,0,0, 130,12, 10,333 

250 DATA 82,103,0,0,100,12,1,0,77,103,0,478 

260 DATA 3,168,12,1,0,65,103,0,1,2, 12,367 

270 DATA 1,0,68,103,0,2,92,12,1,0,67,346 

280 DATA 103,0,4,6,12,1,0,75,103,66,12,382 

290 DATA 1,0, 10,103,867, 250 8,180, 97,0, 724 

300 DATA 3,120,65,250, 11,48, 76,208,48,0,69,898 
310 DATA 250,11,132,46,82,44,124,0,0,0,0,689 

320 DATA 96,0,255,112,52,60,0,128,54,60, 255, 1072 
330 DATA 255,67,250,10,144,112,2,78,67,65,250, 1300 
340 DATA 10,136,78,117,97,0,6,24,96, 204,67 835 
350 DATA 250,9,190,97,0,3,60, 114,255, 118,0, 10% 
360 DATA 112,5,78,65,215,252,0,0,0,2,69, 798 

370 DATA 250, 10,238, 114,0,50,18,87,65,32, 75,939 
380 DATA 97,0,6,228,74,128,102,48,47,4,97,831 

390 DATA 0,6,202,40,95, 78,148, 72,231 128,128, 1128 
400 DATA 64,192,65,250,11,28,48,128,65,250, 11,1112 
410 DATA 18,32,188,0,0,0,0,76,223,1,1,539 

420 DATA 97,0,6,146,97,0,5, 192, 96,0, 255,894 

430 DATA 116,67,250,8,54,97,0,2,226,96,0,916 

440 DATA 255,104,215, 252,0,0,0,2,6%, 250, 10, 1157 
450 DATA 152,114,0,50,18,87,65,32,75,97,0,690 

440 DATA 6,142,74;128,102,218,47,4,65, 250,10, 1046 
470 DATA 220,32,188,0,0,0,2,97,0,6,106,451 

480 DATA 78,64,0,124,128,0,2,124,135,31,40,726 
490 DATA 95,78,148,78,64,2,124,7,31,96,0,723 

500 DATA 255, 142,82,139,12,19,0,46,102,38,82,917 
510 DATA 139,12,19,0,76,103,40,12,19,0, 108,528 
520 DATA 103,34,12,19,0,87, 103,32, 12,19,0,421 

530 DATA 119,103,26,12,19,0,66,103, 24, 12,19,503 
540 DATA 0,98, 103, 18,32, 76,67, 250,7,210,96,957 
550 DATA 0,255,128, 124,4,96,6,124,2,96,2,037 

540 DATA 124,1,215,252,0,0,0,2,69, 250, 10,923 

570 DATA 20,114,0,50,19,91 65,32, 75,970,562 

580 DATA 6,10,74,128,102,0,255,86,47,4, 18,730 

590 DATA 60,0,10,54, 60,255,255, 32,77, 112,5,920 
600 DATA 78,67,47,250,9,240,34, 151,52, 120,0, 1068 
610 DATA 254,65,250,8,216,78,146,97,0,2,6,1122 
620 DATA 97,0,2,16,34,87,65,250,8, 200, 12,771 

630 DATA 6,0,1,103,6,52,120,0,254,96,4,642 

640 DATA 52,120,0,250,78,146,42,6,227, 141 ,65,1127 
650 DATA 250,8,172,48,133,97,0,1,220,97,0, 1026 
660 DATA 1,230,65,250,8, 158,48, 188,0,8,32, 988 

670 DATA 77,118,255, 34,87,52,6,112,7, 78,467,993 
680 DATA 67,250,6,220,97,0, 14192432, 7749741039 
490 DATA 0,254,100, 12,144,115, 116,111,112, 103,0,10 
75 

700 DATA 254,74,12,144,83,84,79,80,103,0,254, 1167 
710 DATA 64,12,16,0,10,103,50,12,16,0,34,317 

720 DATA 103,54,12,16,0,39, 103,48, 72, 193,83, 723 
730 DATA 129,97,0,5,98,74,128,102,0,254,174, 1061 
740 DATA 32,87,12,6,0,1,103,10,12,6,0,269 

750 DATA 2,103,8,32,132,96,6,16,132,96,2,425 

760 DATA 48,132,32,87,209, 198,44, 136,96,0,255, 1239 
770 DATA 72,87 ,45,178,70,102,44,12,4,0,1,637 

780 DATA 103,30,12,6,0,2,103,16,24,40,0,336 

790 DATA 1,225,140,82,136,24,40,0, 1,225,140, 1014 
B00 DATA 82,136,24,40,0,1,225, 140,82,136,24,890 
810 DATA 40,0,1,96,0,255,174,67,250,6,210, 1099 
820 DATA 96,0,254,86,84,139,69,250,8,248, 114, 1349 
830 DATA 0,50,18,87,65,107,16,112,0,12,51 518 
B40 DATA 0,44,0,0,103,18,82,64,178,64, 98,451 
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B50 DATA 242,47,250,6,114,97,0,1,20,96,0,893 

BGO DATA 253,154, 72,231 192,16, 32, 75,50,0, 97,1172 
870 DATA 0,4,202,74, 128, 102,0,254,22,38,48,892 

B80 DATA 76, 223,1,3,65,240,0,1,146,64,83,902 

890 DATA 45,97,0,4,178, 74,128, 102,0,253, 254, 1155 
900 DATA 83,132,47,11,118,255,32,77,112,5,114, 986 
910 DATA 10,78,47,47,4,45,250,8,238,81,208, 1056 
920 DATA 67,250,5,136,97,0,0,200,97,0, 253, 1105 

930 DATA 102,34,72,12,17,0,10, 103,40 83,129,602 
940 DATA 51,65, 255,254, 114,255, 118,2, 65,233, 255, 1 
67 

950 DATA 254,112,1,78,66, 74,128,103, 10,32, 76,934 
940 DATA 52,120,0,204,78,146,96, 198,42, 72,65, 1073 
970 DATA 250,8,178,80,208,40,31,47,250,8,84, 1204 
980 DATA 34,151,65,250,7,44,52,120,0,254, 78,1075 
990 DATA 144,97,0,0,106,97,0,0,116,34,87,483 

1000 DATA 65,250,7,44,52,120,0, 254,78, 146,97, 1113 
1010 DATA 0,0,86,34,87,88, 137,65, 250,7,26, 780 

1020 DATA 52,120,0,254,78,144,97,0,0,68,97, 912 
1030 DATA 0,0,78,118,255,34,87,52,40,0,8,692 

1040 DATA 112,7,78,67,18,40,0,10,112,5, 78,547 

1050 DATA 67,80,151,71,250,4,158, 112,17, 78,65, 1053 
1060 DATA 8,1,0,6,102,4,81,204, 255, 156,88, 905 

1070 DATA 143,65, 250,8,66,74,16,103,0,252,170,1147 
1080 DATA 32,77,112,2,78,46,96,0,252, 160,67 ,942 
1090 DATA 250,6,200,32,77,52,120,0,208, 78,146, 1169 
1100 DATA 78,117,47,250,6,180,96,240,32,76, 96,1238 
1110 DATA 238,84,139,69,250,7,188,114,0,50,18, 1157 
1120 DATA 87,65,32,75,97,0,3, 178,74, 128,102,041 
1130 DATA 0,252,254,47,4,47,250,4,190,97,0,1165 
1140 DATA 255,220, 97,0,252,122,72,193,83,129,97, 15 
20 

1150 DATA 0,3,150,74,128,102,0,252,226,47,4,986 
1160 DATA 67,250,4,172,97,0,255, 192,97, 0,252, 1386 
1170 DATA 94,72,193,83,129,97,0,3,122, 74,128,995 
1180 DATA 102,0,252,198,76,223,3,0,193,73,179,1299 
1190 DATA 200,98, 10,74, 132, 103,20, 18, 216,83, 132,10 
a6 

1200 DATA 96,246,209, 196,211, 196,74, 132,103,6, 19,1 
498 1 

1210 DATA 32,83,68,96,246,96,0,252, 18,45, 250, 1206 
1220 DATA 7,72,114,0,50,16,65, 250,184, 12,776 
1230 DATA 65,0,6,111,0,254,90,12,40,0,68,646 

1240 DATA 0,2,103,0,0,36,12,40,0,100,0,293 

1250 DATA 2,103,0,0,26,12,40,0,97,0,2,282 

1260 DATA 103,0,0,44,12,40,0,65,0,2, 103,369 

1270 DATA 0,0,34,96,0,254,46,97,0,0,40,567 

1280 DATA 97,0,0,62,47,250,7,14,72, 130,229,928 
1290 DATA 74,35,132,32,0,97,0,2,2,96,0,470 

1300 DATA 251, 182,97,0,0,12,97,0,0,34,67, 740 

1310 DATA 250,7,18,96,226,47,8,65,232,0,5, 954 

1320 DATA 93,5,97,0,2,216,32,95, 74, 128,102,904 
1330 DATA 2,78, 117,88, 143,96,0,252,28, 20,40,864 
1340 DATA 0,3,4,2,0,48,12,2,0,7,98,176 

1350 DATA 2,78, 117,88, 143,96,0,253,212,44,79, 1112 
1360 DATA 79,250,3,72,114,11,72,122,0,218, 81 , 1022 
1370 DATA 201,255,250, 72,122,0,30,72,122,0,232, 135 
b 

1380 DATA 72,122,0,254,72,122,1,20,72,122, 1,858 
1390 DATA 42,72,122,1,64,72,122, 1 ,86,46, 78, 706 
1400 DATA 78,117,12,175,0,0,3,8,0,2,103,498 

1410 DATA 0,0,100,47,8, 65,250, 252,8, 177,239, 1146 
1420 DATA 0,6,102,6,32,95,96,0,0,02,32,451 

1430 DATA 95,97,0,1,86,97,0,2,54,65, 250, 747 

1440 DATA 6,176,74,144,103,4,83, 144, 96,58,97,985 
1450 DATA 0,1,88,65,250,4,42,32,80,54,40,498 

1460 DATA 255, 255,112,1,78,67,12,1,0,27,103, 911 
1470 DATA 20,12,1,0,10,103,28,12,1,0,110,297 

1480 DATA 103,2B,12,1,0,78,103,22,96, 216,92, 751 
1490 DATA 79,2,124,7,31,67,250,3,254,96,0,913 

1500 DATA 0,252,97,0,2,2,78,115,67,250,3,864 


1510 DATA 84,65,250,5,254,32,80,52,120,0,208, 1150 
1520 DATA 78, 144,97,0, 250,216, 65,250,5, 110,72, 1289 
1530 DATA 193,83,129,97,0,1,240, 74,128, 102,0, 1047 
1540 DATA 0,10,65,250,6,62,32, 132,96, 204, 65,922 
1550 DATA 250,5,212,32,80,67,250,3,98,52,120,1149 
1560 DATA 0,208, 78, 146,96, 192,97,0,0, 194,92, 1103 
1570 DATA 79,2,124,7,31,97,0,1,156,97,0,594 

1580 DATA 0,202,67,250,3,170,96,0,0,156,97, 1041 
1590 DATA 0,0,148,92,79,2,124,7,31,97,0,400 

1600 DATA 1,130,97,0,0,176,67,250,3, 168, 96,988 
1610 DATA 0,0,130,97,0,0, 142,92, 79,2, 124,666 

1620 DATA 7,31,97,0,1,104,97,0,0,150,67,554 

1630 DATA 250,3,164,94,0,0,104,97,0,0, 114,830 

1640 DATA 92,79,2,124,7,31,97,0,1,78,97,608 

1650 DATA 0,0,124,67,250,3,178,94,0,0,78, 796 

1660 DATA 97,0,0,90,92,79,2,124,7,31,97,619 

1470 DATA 0,1,52,97,0,0,98,67,250,3, 182, 750 

1680 DATA 96,0,0,52,97,0,0,64,92, 79,2, 482 

1690 DATA 124,7,31,97,0,1,26,97,0,0,72,455 

1700 DATA 67,250,3,184,96,0,0,26,80, 143,97, 946 
1710 DATA 0,0,36,92,143,2,124,7,31,97,0,532 

1720 DATA 0,254,97,0,0,44,67,250,3,196,65, 976 

1730 DATA 250,5,14,32,80,52,120,0, 208,78, 146,985 
1740 DATA 96,0,249,208,47,8,65,250,5,82,32, 1042 
1750 DATA 175,0,10,65,250,5,78,48,175,0,8,814 

1760 DATA 32,95,78, 117,75, 250,4,236,42,85,32, 1046 
4770 DATA 77,118,255,112,32,78,47,120,0,50,40,969 
1780 DATA 0,0,52,4,54,60, 255,255, 32, 77,112,901 
1790 DATA 16,78,47,32,4,229,136,71,250,4,218, 1105 
1800 DATA 46,51,8,0,32,115,8,32,34,72, 193,591 

1810 DATA 137,8,128,0,0,193,137,34,81,69,250,1037 
1820 DATA 4,182,72,210,3, 128,44, 124,0,0,0,767 

1830 DATA 0,67,250,4,168,65,250,3,164,52,120, 1143 
1840 DATA 0,254,7B, 146,45, 250,3,166,67,250,4, 1283 
1850 DATA 154,52,120,0,254, 78, 144,65, 250,3, 166,128 
8 

1860 DATA 67,250,4,144,52,120,0, 254,78, 146,38, 1153 
1870 DATA 4,6,3,0,48,67,250,3,114,19,67,581 

1880 DATA 0,4,19,47,0,1,19,47,0,29,97,318 

1890 DATA 0,252, 146,82,68,12,4,0,8,102,0,674 

1900 DATA 255, 122,65, 250,3, 140,67, 250,4,162,52,137 
0 

1910 DATA 120,0,254,78, 146,65, 250,3,140,67,250, 137 
3 

1920 DATA 4,148,34,81,52,120,0, 254,78, 146,65, 982 
1930 DATA 250,3,160,47,250,4,136,52,120,0,246, 1288 
1940 DATA 78,144,47,250,3,82,97,0, 252,84, 78, 1137 
1950 DATA 117,47,14,77,250,4,46,72,214, 63,255, 1159 
1960 DATA 44,95,67,250,4,92,72,209,192,0, 78,1103 
1970 DATA 117,77,250,4,26,76,214,43,255, 77250, 140 
9 

1980 DATA 4,74,44,86,78,117,120,0,122,0,209,854 
1990 DATA 193,22,32,12,3,0,97,101,10,12,3, 485 

2000 DATA 0,122,98,4,4,3,0,32, 112, 255,69,699 

2010 DATA 250,0,34,82, 128, 182,26, 103,10, 120,827 
2020 DATA 0,16,102,244, 112,255, 78, 117,235, 168,216, 
1543 


2030 DATA 128,88, 133,83,129,74,129, 102,204, 112,041 


192 
2040 DATA 78,117,48,49,50,51,52,53,54,55,56,663 
2050 DATA 57,45,66,47,68,49,70,0,0,0,0,442 

2060 DATA 0,0,0,0,0,0,0,0,0,0,0,0 

2070 DATA 0,0,0,0,0,0,0,0,0,0,0,0 

2080 DATA 0,0,0,0,0,0,0,0,0,0,0,0 

2090 DATA 0,0,0,0,0,0,°,0,9,0,0,0 

2100 DATA 0,0,0,0,0,00,0,0,0,0,0 

2110 DATA 0,0,0,0,0,0,0,0,0,0,0,0 

2120 DATA 0,0,0,0,0,0,0,0,0,0,9,9 

2130 DATA 1,0,0,0,0,1,2)4,1,0,7,16 

2140 DATA 1,204,0,132,0,28,0,8,2,1,0,376 

2150 DATA 7,1,204,0,42,0,28,0,141,0,50,473 
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2160 DATA 81,76,32,85,115, 101, 114,32,77,97,99,909 
2170 DATA 104,105,110, 101,32,67,111,100,101,32,77, 
940 

2180 DATA 111,110,105, 116,111,114, 10,32,32,32,98,8 
11 

2190 DATA 121,32,82,105,99, 104,97, 114,100,32,47,95 
3 

2200 DATA 114,111,115,115,10,10,0,2,62,32,0,571 
2210 DATA 31,68, 101,118, 105,99,101,32,100, 101,102, 
958 

2220 DATA 32,45,32,60,101, 110,116, 101,114,62, 61,83 
4 

2230 DATA 100,101, 102,97, 108, 116,32,32,42,32, 0,782 
2240 DATA 0,8,84,111,32,63,32,32,62,32,0,456 

2250 DATA 29,78,117, 109,98, 101,114,32,111,102,32,9 
23 

2260 DATA 98, 121,116,101 ,115,32,116,111,32,109, 111 
1042 ; 

2270 DATA 118,101,32,63,32,32,62,32,0,0,4,476 

2280 DATA 32,32,63,32,0,40,72,111, 119,32, 109,642 
2290 DATA 97,110,121,32,105, 110,115, 116,114, 117,99 
1136 

2300 DATA 116,105, 111,110, 115,32,98, 101,102,111, 11 
4,115 

2310 DATA 101,32,114, 101 116,117,114, 110,32,63,32, 
932 

2320 DATA 62,32,0,22,85, 110,114,101 ,99, 111,103,839 
2330 DATA 110,105,115, 101,100,327, 111,109, 109,97 
1056 

2340 DATA 110,100,32,10,0,8,66,97, 100,32, 72,627 
2350 DATA 101,120,10,0,14,66,97,100,32,80,97, 717 
2360 DATA 114,97, 109,101,116, 101,114, 10,0,40,66,86 
a 

2370 DATA 97,100,32,115, 105,122,101 ,32,45,32,109,8 
90 

2380 DATA 117,115, 116,32,98,101,32,91,44, 108,93, 94 
q 

2390 DATA 32,44,32,91,46,119, 93,32, 111,114,32, 746 
2400 DATA 91,46,98,93,32,10,0,20,87,114, 111,702 
2410 DATA 110,103,32,115, 116,114, 105,110, 103,32,10 
8, 1049 

2420 DATA 101,110, 103,116,104, 10,0,10,10,60,101,72 
5 

2430 DATA 115,99, 97,112,101 62,10,0, 21 66,114, 797 
2440 DATA 101,97,107,32,112,111, 105, 110,116,32,69, 
992 

2450 DATA 120,101 ,99,117,116,101,100,10,0,0,20, 784 
2460 DATA 80,114, 105,118, 105,108, 101,103, 101,32,86 
1053 

2470 DATA 105,111,108, 97,116,105, 111,110,10,0,37,9 
10 

2480 DATA 84,114,97,112,32,111,110,32, 111,118, 101, 
1022 

2490 DATA 114,102, 108,111, 119,32,49, 120, 101,99, 117 
1092 

2500 DATA 116,101, 100,32,45,32,79, 118,101,114, 102, 
940 

2510 DATA 108,111,119, 10,0,0,28,67,72,75,32,622 
2520 DATA 69,120, 101,99, 117,116,101, 100,32,45,32,9 
a . 

2530 DATA 111,117,116,32,111,102,32,114, 97,110,103 
11045 

2540 DATA 101,10,0,26,65,116, 116,101,109, 112, 116,8 
72 

2550 DATA 32,114, 111,32, 100, 105,118,105, 100,101 ,32 
952 

2560 DATA 98, 121,32,122,101,114,111,10,0,37,73,819 
2570 DATA 108,108,101 ,103,97, 108,32, 105,110,115, 11 
6, 1103 

2580 DATA 114,117,99, 116,105, 111,110,32,99, 111, 100 
tt 
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2590 DATA 101,32, 101,110,99,111,117, 110,116,101, 11 
41112 

2600 DATA 101,100, 10,0,0,14,65, 100, 100,114,101 ,705 
2610 DATA 115,115,32,101, 114, 114,111,114, 10,0,48,8 
74 

2620 DATA 66,121, 101,32, 102,114,111, 109,32,77,111, 
976 

2630 DATA 110, 105,116,111, 114,32, 10,3267, 111, 110, 
918 

2640 DATA 116,114, 111,108,32,39,67,39,32,102,111,8 
71 

2650 DATA 114,32,97,110, 111,116,104, 101,114,32,108 
1037 

2460 DATA 111,98, 10,10,0,3,32,32,32,0,0,328 

2670 DATA 8,0,0,0,0,0,0,0,0,0,39,47 

2680 DATA 32,68,110,32,0,0,0,0,0,0,0,242 

2690 DATA 0,32,45,110,32,0,0,0,0,0,0,239 

2700 DATA 0,0,32,40,65,110,41,32,0,0,0,320 

2710 DATA 0,0,0,0,0,10,0,0,79,10,32, 131 

2720 DATA 32,32,32,32,32,32,32,80,67,32,0,403 

2730 DATA 0,0,0,0,0,0,0,32,40,80,67,219 

2740 DATA 41,32,0,0,0,0,0,0,0,0,10,83 

2750 DATA 10,32,32,32,32,84,32,83,32,32,73,474 
2760 DATA 73,73,32,32,32,88,78,90,86,67,32,683 
2770 DATA 10,32,83,82,32,0,0,0,0,0,0,239 

2780 DATA 0,0,0,0,0,0,0,0,0,0,10,10 

2790 DATA 0,0,0,0,0,0,0,0,0,0,0,0 


Composer Il 

James Lucy 

This is.the final part of our composer 
program. It applies something akin 
to the Midas Touch to the QL’s 
somewhat limited sound making 
capability converting discord into 
harmony. Using this program you 
can transfer or create your own 
musical scores, play them back and 
even amend them, deleting or in- 
serting notes as you go. The program 
will handle sharps, vary tempo and 


even specify staccato and legato 
playing styles. 


4390 DEFine PROCedure status 

4400 CLO#3 

4410 AT #5,1,2:PRINT#3, "PAGE" current _page!!' "NOTE 
S"!notenua-1!!!"METRONOME ";metro_mark 

4420 END DEFine 

4430 DEFine PROCedure sublines 

4440 IF p=33 OR p=31 :LINE across,up:LINE_R TD 4,0 
TQ -8,6 

4450 IF p=3é:LINE across,uptl.S:LINE R TO 4,0 TO - 
8,0 

4460 IF p=410R p=38:LINE across,up:LINE_R TO 4,0 T 
G -G,O:LINE_R 0,3 TO 9,0 

4470 END DEFine 

4490 DEFine PROCedure delete note 

4490 INK 4:dn=counter-1 

4500 en=(current_page-1}#100+100:IF current_page=p 
age: en=en-100+pagenctecount 

4519 FOR del=nate_nuaber TQ en 

4520 dn=dntl 

4530 display pitchidel) duration (del) ,dn 

4540 END FOR del 

4550 FOR shift=note_nuaber 10 notenus 

| 4560 pitchishift)=pitchi(shift+l) 


4570 duration (shift)=duration(shift+1) 

4580 END FOR shift 

4590 notenum=notenua-{ 

4600 pagenotecount=pagenotecount-1 

4610 INK O:dn=counter-1 

4620 FOR redraw=note_nuaber TO en 

4630 dn=dnt1 

4040 display pitch(redraw) ,duration (redraw) ,dn 
4650 END FOR redraw 

4460 END DEFine 

4470 DEFine PROCedure insert_note 

4680 INK 4:ino=counter-1 

4690 en=(current_page-1)#100+100:1F current_page=p 
age: en=en-100+pagenotecount 

4700 FOR ins=nate_nuaber TO en 

4710 ino=inotl 

4720 display pitch(ins) ,duration{ins),ino 

4730 END FOR ins 

474) REPeat check_inserted_note 

4750 er=0 

4760 input_pitch:check_pitch:IF er:END REPeat chec 
k_inserted_note 

4770 convert_pitch 

4780 input_duration:check_duration:IF er:END REPea 
t check_inserted_note 

4790 INK O:display p,d,counter 

4900 play p,d 

4810 FOR shove_along=notenuat! TO note_nuaber+! ST 
EP =1 

4820 pitch(shove_along)=pitch(shove_along-1) 

4930 duration(shove_along)=duration(shove_along-1) 
4840 END FOR shove_along 

4850 pitch(note_number)=p:duration(note_number)=d 
4960 dn=counter-1 

4870 FOR redraw=note_nuaber TO en 

4880 dn=dnti 

4990 display pitch (redraw) ,duration (redraw) ,dn 
4906 END FOR redraw 

4910 notenum=notenua+! ;pagenotecount=pagenotecount 
+1 

4920 END DEFine 

4930 DEFine PROCedure store_ausic 

4940 CLS#O:PRINT#O," STORE: Press ‘c' to continu 
e: "syS=INKEY$(-1) 

4950 IF y$<>"c" AND y$<>"C* THEN RETura 

4960 REPeat check saved ausic 

4970 CLS#O:PRINT#O," Enter file name for the mus 
ic: {e.g mdvl_opusi)* 

4980 PRINT#O," Device must exist and must not co 
ntain the filename you use '"; 

4990 INPUT #0,stored_music$ 

5000 n$=stored_music$&" *rng=n$(1 TO 9) 

S010 TF né(i TO S)=="advi_" OR n$(1 TO 5)=="mdv2_* 
sELSE END REPeat check saved_music 

502) OPEN_NEW #9,stored musics 

5030 FOR a=G TO 950:PRINT#?,pitch{a) 

5040 FOR a=0 TO 950:PRINT#9,duration{a} 

5050 PRINT #9,notenum:PRINT#9 , pagenatecount: PRINTS 
9 page:PRINT#9 ,metro_mark 


509) END DEFine 

5100 DEFine PROCedure load_ausic 

S110 CLO#O:PRINT#O," LOAD: Press ‘c’ to continu 
e: "sy$=INKEYS(-1) 

9120 IF y$éo"c* AND y$<>"C* THEN RETurn 

3130 REPeat check_stored_ausic 

3140 CLO#O:PRINT#O," Enter file name of stored a 
usic : (e.g. advi_opusi)"; 

S150 INPUT #0,stored_music$ 


5160 nf=stored_music#h" "sng=n€(1 TO 5) 

3170 IF n$(1 70 S)=="advi_* OR n$(i TO Si=="adv2_" 
TELSE END REPeat check_stored music 

3189 CLE sstave 

S190 GPEN_IN#9,stored_music$ 

220) FOR a=) TO 950s INPUT#9, pitchia) 

5210 FOR a= TO 950: INPUT#9,duration(a) 

522 INPUT#9 notenum: INFUT#9, pagenotecount: INPUT#? 
ypage: INPUT#9 metro_mark 

£23) CLOSE#9 

24) current _page=i 

D Lim=100: TF notenumé100 THEN lim=notenum+! 

) FOR a=i TO lim:display pitch{a) ,duration(a),a 

O status 

89 editor 

9) END DEFine 

330) DEFine PROCedure sounds 

S310 CLS#O:PRINT#O ," SOUND CHANGE : Press ‘c’ to 

ntinue" 

vS=INKEVYS(-L):TF y$<e"C" AND y$<>"c" THEN RET 


S350 CLO#O:PRINTHO," Fress ‘m’ to return to music 
al notes, any other key to change tone” 

S34) yS=INKEVS(-L):1F y$s="a" sdurs-ispitch 2=G:gr 
Qigrad_y=O:wrans=d:fuzzy=0:random=0:RETurn 

; Duration: (-32766 to 32787) 


si60 INPUT#O," Fitch 2: (0 to 255) "spitch 2 

5370 INPUT#O," Grad_x + (-32768 to 15) ":grad_z 
S390 INFUT#O," Grady : (-9 to 7) “sarad_y 
3390 INPUT#O," Wraps () to 32767) “ywraps 
S400 INPUT#O," Fuzzy oo: iG to 15) "sfuzzy 

S410 INPUT#S," Random (8 ta 15) “yrandoa 


S420 END GEFine sounds 
Q DEFine FROCedure draw sharp 
) CURSOR ecross-4,upt2,0,6 


5400 PRINT "#" 
346) END CEFine draw sharp 
5470 ne PROCedure draw legato 


TF pid 
5490 LINE across up-change+!3 
Soa) ARD_R TO 8,0,-PI/2 


4 END IF 
50 END DEFine 
60 DEFine PROCedure draw staccato 
70 FILL i 
80 IF pei2 
w090 CIRCLE across ,up+3, 
5400 ELSE 
5619 CIRCLE acrass,up-3,1 
562 END IF 
30 FILL 6 
544) END DEFine 
5690 DEFine PROCedure help(intra} 
566) PAPER 4,2,0:;CL5: INK O:CSIZE 3,1:57RIP i: PAPE 


ee 


5670 AT O,LL:UNDER L:PRINT*HELP "SUNDER @ 

5480 CSIZE G,G:PRINT "You reached this screen by t 

yping HELP’ in answer to the FITCH ? prompt.* 

3590 PRINT\"The pitch of the note entered must be 
from Ato G, then a tog. Sharps are entered b 

y adding an ‘S’ or ‘s’. Rests are entered using * 


R’oor ‘r’. The treble clef applies to all stave | 
ines." 


a PRINT\"You may also type’ EDIT, DELETE, SAVE, 
LOAD, FLAY, TIMBRE or HELP in answer to the PITCH 
? prompt." 


TA"EDIT - Enters the editor. You may 
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select a page and can then delete, insert, or cha 
nge notes. Pressing ‘c’ontinue redraws the last pa 

ge at your music. ‘P‘lay allows any part of the a 

usic to be plaved.* 

S72) PRINT\ "DELETE - Deletes last note drawn. 
immediately noticed mistakes. * 

S730 PRINT\"SAVE - Allows the music to be saved to 
micradrive. Must be drive 1 or 2, filename aust 
be valid and not yet exist.” 

S749 INK 7:AT 19,20:PRINT "PRESS ANY KEY TO CONTIN 

UE:"sFAUSEs INK 0 

S790 PAPER 4,2,0:CLO:STRIP L:PAPER 4 

S7é FRINT\"LOAD - Deletes any music on the screen 
and loads music from microdrive." 

S77) PRINT \"PLAY - Plays whole piece from beginni 

ng." 

S780 FRINT\“TIMBRE - Allows sound parameters to be 
reset. Sound effects may then be played like au 

sic. Press m’ to return to music parameters,” 

5790 PRINT\"HELP - Prints these pages." 

5909 PRINT \"The DURATION ? prompt takes notes in 

numerical farm, assuming a cratchet = 1. The allo 

wed values are .d, «73, 1, 1.5, 2, 3, 4 i.e from s 

emiguaver to semibreve. A staccato note may be s 

pecified by adding an ‘s after the number and a | 

egato note an 1’ e.g 21," 

S8i0 PRINT\"Both PITCH and DURATION inputs ‘auto r 

epeat'- they default to the previous value if ‘ENT 

ER is pressed." 

5a2) PRINT\“No more information." 

SE30 AT 19,22, INK 7:PRINT*PRESS ANY KEY TO RETURN" 

5840 PAUSE: INK 6 

5859 Tf intro THEN RETurn 

Sadi; FAPER 4:CLS:stave 

587) star=(current_page-1)#100+i:spot=star +99 

0986 IF current_page=page THEN spot=star+pagenotec 

ount 

S89) pp=O:FOR rp=star TO spotipp=pptisdisplay pitc 


For 


S916 REMark 

5920 REMark 

5930 END DEFine help 

5940 DEFine PROCedure welcome 

5950 MODE 4:WINDOW 512,254,0,0;PAPER 4,2,0:CLS 
5960 STRIP 1:PAPER 7:INK O:CSIZE 2,1:AT 3,8:PRINT 


" @tL COMPOSER * 

9970 AT 6,18:PRINT" by * 

5980 AT 8,15:PRINT " Jaaes Lucy * 

599) AT 10,18:CSIZE £,0:PRINT * (C) 1985 " 
6000 PAUSE 100 

6010 PAPER 4,2,0:CLS:PAPER 7:CSIZE 2,0 

6020 AT 5,4:PRINT" Press ‘i’ for information 
6030 AT 9,6:PRINT" Press ‘d’ for a demonstration * 
6040 AT 11,4:PRINT " Press ‘s‘ to start the progra 
a" 

6050 STRIP 0 

6040 REPeat check_choice 

607) cho$=INKEY$(-1) 

6080 IF chof INSTR “ilsSdD"=0:END REPeat check cho 
ice 
4090 
6100 
oiio 


IF cho$=="S" :RETurn 

IF cho$=="B" :deao 

IF chof=="I" THEN 

5120 WINDOW 448, 220,32, 16 

6130 PAPER 2,7,3:CL5 

6140 PRINT, " QL COMPOSER accepts gusical notes 
typed in by the user, displays thea on a stave an 
d plays thea. 
6150 PRINTS" Notes can be inserted, deleted orc 
hanged and can be played staccato,legats, or no 
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rmaliy. The 
program accepts the standard aetronoge mark. 

6160 PRINT \" The program starts by requesting a 

metronome mark. Press enter for the default value 
A pitch will then be requested, which can be us 

ed to enter the first note or to enter the co 

amands listed on the help screen." 

6170 AT 19,0:5TRIF L:PAPER 7:CSIZE 1,0:PRINT*Press 

any key to view help screen. ":PAUSE:STRIP 0 

6180 help i 

6190 PAPER 2,7, 3:CL9:STRIP i:PAPER 7: INK 0 

4200 AT 19,0:CSIZE 1,0:PRINT" Press ‘d° for a demo 

nstration, ‘s’ to start the program":STRIF 0 

6210 REPeat check ch 

622) cho$=INKEY$(-1) 

6239 IF cho$ INSTR “dsDS"=0:END REPeat check ch 

6240 IF cho$=="s"sRETurn 

6250 demo 

6260 EXD IF 

5270 END DEFine welcome 

6260 DEFine PROCedure demo 


speed of playing can be varied; the 


6290 PAPER G:CLO:WINDOW 448, 200,32, 16:PAPER 4:CL5 


6300 


DIM demop (33) ,demod (35 

316 stave:RESTORE :draw clef 9,85 

320 STRIP L:PAPER 7:CSIZE O,0:AT 10, 14:PRINT" Ext 
from Beethoven's Ninth Symphony ":STRIP O:PAP 


FOR red=3 TO 32:READ cemop(red) ,demod(red):di 
splay demopired) ,demodired) red 

6340 FOR red=3 TO 32:plav demopired) ,demod(red} 
6350 DATA 20.1, 20,1,19,1,15,1,15,1,19,1,20,1,24,1, 


6340 DATA 24,.5,24,2,20,1,20,1,19,1.15,1,15,1,19,1 
20,1,24,1,28,1,28,1,24,4 


370 DATA 20,1,24,1.5,28,.5,28,2 

b3B0 REHark 

( REMark 

ND DEFine demo 

6419 DEFine PROCedure pre_initialise 

6420 DIM pitch(950):DIM duration (950) 

6430 notenum=9: pagenotecount=9:page=1:current_page 
={rmetro_mark=10 

644i) dur=-i:pitch 2=O:grad_x=Orgrad_y=Orwraps=0: tu 
zzy=0:random=0 

6450 END DEFine pre_initialise 

6460 DEFine PROCedure draw_clet(x,y) 

6470 LINE x,ytl.5 

648) ARC_R TO 0,4.5,-PI] TO 0,-&,-PI TO -3,7,-3#PI/ 
4 

649) LINER TO 5,7:ARC_R TO -2,0,PI 

6500 LINE_R T0 6,-19 

6510 FILL U:CIRCLE_R -1,0,1:FILL 0 

6520 END DEFine draw clet 


Variable Dump 


I Robinson 


The following utility is. invaluable 
when it comes to debugging BASIC 
programs. It adds the extra com- 
mand VAR to SuperBasic. This will 
list all variables used within a 
program and their contents to the 
screen. A hex loader listed below 
with checksums at the end of each 
line (to minimise typing-in errors) 
gives the machine code extension. 


After then a short test program 
follows which load the routine and 
tests it. 


100 REMark ## QL User 1985 by I Robinson ## 

110 REMark #* SuperBasic Extension +t 

120 REMark ## Variable displayer +t 

130 DIM array (5): address=RESPR (598) 

140 start=address:CLS:CLS#0: RESTORE 

150 READ nwords 

160 IF nwords<=0 

170 PRINT"Load complete" 

180 FOR a=0 TO 49:POKE_L start+380+at4 0 

190 SBYTES advi_varext_bin,start,598 

200 = STOP 

210 END IF 

220 csum=O:FOR i=0 TO nwords-1:READ array(i):csum= 

csumtarray(i)@NEXT i 

230 READ csum2:IF csum¢>csua2 THEN PRINT"Checksua 

error":PRINT"Correct checksua",csum:PRINT"Line of 

data":FOR i=0 TO nwords-1:PRINT,array(idy","3sNEXT 
i:STOP 

240 FOR i=0 TO nwords-1:POKE W address,array(i):ad 

dress=addresst2:NEXT i 

250 60 TO 150 

260 DATA 6,17402,12,13432,272, 20114, 28672, 79904 
270 DATA 6,20085,1,12,854,16722,0,37474 

280 DATA 6,0,0,17402,338, 14456, 200,32396 

290 DATA 6,20116,17402,340, 14456, 208,20116,72638 
300 DATA 6, 10862, 24,3126,3,-10240, 27168, 30943 

310 DATA 6.3126, 1,-10240,26392,3124,3,22408 

320 DATA 6,-10239, 26406, 3126,2,-10239, 26468, 35524 
330 DATA 6,312, 1,-10239, 26426, -9220,0, 10094 

340 DATA 6,8,9326,28,-18995, 27338, 28674, 46379 

350 DATA 6, 20034, 28672, 20085, 24832, 146,3126, 96895 
360 DATA 6,0,-10240, 26368, 228, 9846,-10236, 15966 
370 DATA 6,9326,40,-10805, 12854-22528, 14454, 3343 
380 DATA 6,206, 20116, 24774, 24942, 3126,0, 73164 

390 DATA &.-10240, 26368, 194, 9846,-10236, 8814, 24744 
400 DATA 6,40,-11317,-11314, 14456, 208, 20116, 12189 
410 DATA 6,24576,-90,24908,3126,0,-10240,42280 

420 DATA 6,26368, 160, 9846, -10236, 9326, 40, 35504 

430 DATA 4,-10805,-10802,17402,382,8922, 13018, 1811 
7 

440 DATA &,17402,374,-27698, 12040, 16890, 172, 19180 
450 DATA &,-28210, 14456, 240, 20116, 17402, 140, 24164 
460 DATA 6,-27698, -28215, 13320, 8287, 3046317402, 13 
559 

470 DATA 6,146, 28679, 20035, 24576, -148, 28690, 101958 
480 DATA 430463, 20035,3200,0,0,26402,80100 

490 DATA 6,12040,8346,1,1,28673,30463, 79494 

500 DATA 20035, 8287 , 28688, 30443, 29184 , 29496, 1443 
53 

S10 DATA 6, 20035, 28706, 30443, 20035, 24784, 17025, 141 
048 

920 DATA 6,12854,-10238,8814,32,-11327, 16962, 17097 
930 DATA 6,5174,-26624, 13884 ,-1,-11314,-11268,-301 
49 

540 DATA 6,0,1,28679, 20035, 28689, 30463, 107867 

350 DATA 6529199, 20035, 20085, 17402, 38, 14456, 101215 
560 DATA 6,208, 20116, 24574 ,-274,1025,7,45658 

570 DATA 6,300,100,32,16,12,22081 22541 

580 DATA 6,21065, 16706, 19525, 21280, 14858, 1935435 
590 DATA 6,10784,0,0,0,0,0,10784 

600 DATA -1 


5 REMark #* Test progran ## 
10 a=RESPR(598) 

20 LBYTES advi_varext_bin,a 
30 CALL a 

40 VAR 


similar vein. To keep you 
guessing, however, we won’t 


Pentathlete 


A Didcock expand on the way the various 
Anyone who s played events are played — though 
something like Daley there are the usual mix of 
Thompson’s Decathlon will running, jumping and 
recognise this as being of throwing challenges. 


1.REMark track_boot 

3 MODE 8 - 

4 LBYTES advi_title screen, 131072 

5 MERGE mdvi_UDG_data 

6 GO TO 32000 

7 NRUN ndvi_TRACK_and_FIELD 

10 hiscore=8 

20 -+_level 

40 draw_main_screen 

5@ draw_power, 

60 initialise 

67: 

90 REPeat game 

108 event_l: screen 

110 IF NOT qualify THEN end_routine: GO TO 20 
120 event_2: screen 

130 IF NOT qualify THEN end_routine: 
140 event_3: screen 

150 IF NOT qualify THEN end_routine: 60 10 20 
160 event_4: screen 

170 IF NOT qualify THEN end_routine: 
180 event_5: screen 

198, IF NOT qualify THEN end_routine: GO TO 20 
208 next_level 

210 IF NOT qualify THEN end_routine: 
215 level=level+.5 

220 END REPeat game 

699 : 

700 DEFine PROCedure hi_scores 

705 LOCal i 

707 hi (event ,8)=distance 

708 his(event ,Q)=a$ 

710 IF hi (event ,@) >hi (event ,1) THEN 
720 weewrtl 

738 FOR i=3 10.1 STEP -1 

740 hi (event ,i)=hi (event ,1-1) 
750 -hi$(event ,i)=hi$(event ,i-1) 
7o@ END FOR i 

762 RETurn 

764 END IF 

7bb IF hi (event ,@) >hi (event ,2) THEN 
778 hi (event ,3)=hi (event ,2) shi $ (event ,3)=hi $(event ,2) 
772 hi (event ,2)=hi (event ,2) shi $(event ,2)=hi$(event ,@) 
774 weewe+l 

776 RETurn 

778 END IF 

78 IF hi (event ,@) >hi (event ,3) THEN 

782. wr=wrt! 

784 hi (event ,3)=hi (event ,@) shi $ (event ,3)=hi$(event ,O) 
786 RETurn 

788 END IF 

798 END DEFine 

799: 

800 DEFine PROCedure reset 

810 STRIP #3,7,0 

820 AT #3,1,8:PRINT #3," 7 

830 "INK #3,2: STRIP ¥3,7 

848 AT #3,1,36:PRINT #3,"00 " 

850 END DEFine 

a7: * 

900 DEFine PROCedure time (type) 

918 SELect ON type 

920 ON type=@; ft=DATE: RETurn 


930 ON type=1: “ut=DATE-ft:ut$=DATES (ut) 

940 END SELect 

942 CSIZE 2,0 

945 INK S:STRIP 2:AT 8,35:PRINT ut$(19 TO) ;".82" 

950 END DéFine : 
999.5 

1000 DEFine PROCedure event_1 

1085 event=1:CLS #7:draw_shot:reset 

1086 pos=2: qual=@ 

1007 INK #4,7:FOR i=2 TO 4:AT #4,1,14:PRINT #4,"00.00":END FOR i 

1089 REPeat shot 

1010 PAPER Qs INK 5 

1011 foul=0 

1015 CSIZE 2,1 

1028 x=8: y=3:power=8 

1025 AT x,ysPRINT CHR$(128) 

1038 INK @,7:FILL 1sCIRCLE 12,32,.75:FILL 8 

1040 CSIZE 2,0: INK 2:PAPER 4:AT 10,3:PRINT "YOUR GO:" 

1045 FOR i=188 TO 10 STEP -1:BEEP 300,i:END FOR i 

1052 BEEP 1000,5 
1055 AT 10,3:PRINT * 
1056 n=O 

1060 FOR shot_loop=1 TO 68 
1078 -key1=KEYROW(1) 
1872 IF keyl<>® THEN BEEP 200,100 

1073 IF key1>=64 AND key1<1@@ THEN EXIT shot_loop 

1075 IF key1<>® AND key1<>key2°AND power<23.5 THEN n=n+i 

1076 IF n=INT(level) THEN power=power+1:n=0 

1080 IF power >8 AND (key1=@ OR keyl=keyZ) THEN power=power-.2 

1098 AT #3,1,power:STRIP #2,8:PRINT #3," "STRIP #3,7,0:AT #3,1,power+1:FRINT #3," * 
1095 FOR i=1 TO 128:END FOR i 

1182 key2=key! 

112 END FOR shot_loop 


60 10 20 


60 10 20 


60 TO 20 


“: AT #3,1,power STRIP #3,@:PRINT #3," " 


THE PROGS 


1138 IF shot_loop=68 THEN foul=1 

1148 IF NOT foul THEN throw: 60 TO 1208 

115@ INK 2:STRIP 1:FLASH 1 

1168 AT 14,2:PRINT "FOUL" :BEEF 8,38,37,9880,7,0,2,2 
1178 FLASH @ 

1175 AT #4,pos,14:PRINT #4,"-—-——" 

1188 FOR i=1 TO 1008: END FOR i: BEEP 

1195 distance=2 

1208 pos=postl 

1218 score=score+INT (distance#10) 

1215 INK #4,2 

1230 IF score>? AND score<i@@ THEN AT #4,0,10:PRINT #4,score 
1248 IF score>9? AND score¢10@@ THEN AT #4,0,9:PRINT #4,score 
1245 IF score>999 AND score<1@@Q@ THEN AT #4,0,8:PRINT #4,score 
1246 IF score>9999 THEN. AT #4,8,7:PRINT #4,score 
1250 IF NOT. foul THEN INK 2:FILL 1:CIRCLE x,y,.B:FILL @ 
1278 draw_shot 

1288 reset 

1282 INK 4 

1283 FOR i=1 TO 15@0:END FOR i 

1285 AT 11,1sPRINT. " * 

1286 AT 13,1:PRINT " a 

1288 STRIP 4:AT 14,2:PRINT " =" 

1298 hi_scores 

1291 print_hi_scores 

1292 power=8 

1293 IF pos=5 THEN EXIT shot 

1295 END REPeat shot 

1296 qualify=qual 

1297 END DEFine 

1299 : 

1308 DEFine PROCedure throw 

13@5 CSIZE 2,1:STRIF @:INK 5 

1310 AT x,y:PRINT " ":AT x,y#1sPRINT CHR$(129) 
1328 BEEP 1002,5 

1325 angle=10: STRIP 3,7: INK #3,2 

1326 AT #3,1,36:PRINT #3,angle 

1338 REPeat key 

1340 IF KEYROW(1)=@ OR angle>8@ THEN EXIT key 
1350 angle=angle+2 

1368 AT #3,1,36:PRINT #3,angle 

1378 END REPeat key 

1375 x=22: y=37: INK 8,7 

1376 FILL 1:CIRCLE x,y,1: FILL @ 

1377 IF angle<S@ THEN a=(angle/10.5) 

1378 IF angle>49 THEN a=(1/angle) #200 

1379 b=angle/4d 

1380 n=@ 

1384 i=8 

1385 REPeat launch 

1386 i=i+l 

1398 xl=x: yl=y 

1488 IF i>power#.7 AND NOT n THEN a=a~(a/3): b=-(b#2): n=1 
1418 x=xta: y=y+b 

1420 FILL 1sINK 4:CIRCLE x1,yi,1:FILL @ 

1438 FILL 1: INK @,7:CIRCLE x,y,1:FILL @ 

1440 IF y<=3@ THEN EXIT launch 

1458 END REPeat launch 

1468 draw_shot 

1478 FILL t:INK @,7:CIRCLE x,y,1sFILL @ 

1475 di=11 

1488 FOR i=26 TO x 

1498 di=ditl 

1518 END FOR i 

1528 distance=( (di /35)#7)+(INT(RND(@ TO 28))/180) 
1538 CSIZE 2,0: INK 2 

1548 AT 11,1:PRINT "YOUR THROW WAS ";distance;"m" 
1558 IF distance)=15.28 AND NOT qual THEN INK @: AT 13,1:PRINT "YOU HAVE QUALIFIED": qual=1 
1568 IF distance>=18 THEN AT #4,pos,14:PRINT #4,distance: ELSE AT #4,pos,15:PRINT #4,distance 
1578 END DEFine : 

1999 + 

2008 DEFine PROCedure event_2 

2085 event=2 

2018 pos=2:level2=1:lia=.2 

2015 CLS #7 

2028 INK #4,7:FOR i=2 TD 4:AT #4,i,14:PRINT #4,"00,00":END FOR i 

2021 IF INT(level)=3 THEN level2=2 

2022 IF INT(level)=2 THEN lim=1 

2025 qual=@ 

2027 REPeat sprint_loop 

2038 draw_sprint 

2035 time (@):time (1): INK @:AT 8,3@:PRINT "TIME:" 

2040 foul=@: tot=1: gm=1: fin=290: power=8 

2045 reset 

2058 CSIZE 2,1: INK S:STRIP 2:AT 8,14:PRINT CHR$(130) 

2055 co=14 

2068 n=8: key1=8: key2=0: char=13@: total=380 

2065 CSIZE 2,8: INK 2:PAPER 4:AT 10,3:PRINT "GET READY... .” 

2078 le=RND (702 TO 1480) 

2875 FOR i=1 TO lesEND FOR i 

2088 BEEP 1008,1:AT 12,3:PRINT "GO!" 

2083 time (0) 

2085 PAUSE 40000 

2086 AT #3,1,power:STRIP #3,Q:PRINT #3," " 

2098 AT 10,3:PRINT “ "SAT 12,3:PRINT " 4 

2108 REPeat sprint_l 


2185 IF char=131 THEN time (1) 

2118 CSIZE 2,1:STRIP 2: INK 5 

2128 keyl=KEYRDW(1) 

2125 BEEP 302,108 

2138 IF keyl(>@ AND keyl<>key2 AND power<23.5 THEN n=n+1 

2135 IF n=level2 THEN power=power+lin=0 

2140 IF power 28 AND (key1=@ OR keyl=key2) THEN power=power-lim 
2145 AT #3,1,power:STRIP #3,Q:PRINT #3," ":STRIP #3,7,0:AT #5,1,power+1:PRINT #3," " 
2158 keyZ=keyl - 

2155 total=total-power 

2168 IF char=13 THEN char=131: ELSE char=130 


| 
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2162 IF co>=30 THEN co=: INK #6,7:POINT #6,732,8: POINT #6, 732,180 

2165 IF NOT gm THEN AT 8,14:PRINT " ":PAN #4,-powersAT 8,14:PRINT CHR$ (char) 

2170 IF gm THEN AT 8, 14:PRINT " "SPAN #6,-25:AT 8,14:PRINT CHRS (char) 

2175 co=cotpower : 

2180 IF total<1@@ AND tot THEN LINE #4,730,100 TO 80,0: tot=2 

2182 IF total<18 THEN fin=fin-power 

2183 IF fin¢=@ THEN EXIT sprint_l 

2185 ge=8. 

2198 END REPeat sprint_] 

2195 tme=ut$(19 TO )+(INT(RND(1 TO 98))/18@) 

2200 CSIZE. 2,0:STRIP 2: INK 5 

2205 IF tme<1@ THEN AT 8,35:PRINT "O";tmes ELSE AT 8,35:PRINT tme 

2210 BEEP 1000,1 

2215 IF tme<1@ THEN AT #4,pos,14:PRINT #4,"@";tme: ELSE AT #4,pos,14:PRINT #4,tme 

2220 pos=post+! 

2225 IF NOT qual AND tme<12.65 THEN qual=1:INK Q:STRIP 4:AT 13,1:PRINT "YOU HAVE QUALIFIED" 
2230 score=score+INT ( (30-tme) #15) 

2232 INK #4,2 

2235 IF score>9 AND score(1@Q THEN AT #4,0,10:PRINT #4,score 

2240 IF score>99 AND score<1QQQTHEN AT #4,8,9:PRINT #4,score 

2245 IF score)999 AND score<1@@@0 THEN AT #4,0,8:PRINT #4,score 

2246 IF score>9999 THEN AT #4,0,7:PRINT #4,score 

2258 hi_scores_2 

2255 print_hi_scores 

2268 FOR i=1 TO 15@Q: END FOR i 

2265 AT 13,1:STRIP 4:PRINT “ = 

2270 IF pos=5 THEN EXIT sprint_loop 

2275 END REPeat sprint_loop 

2288 qualify=qual 

2285 END DEFine 

2999 + 

3000 DEFine PROCedure event_3 

BOOS event=3:pos=2:CLS #7 

‘3O10 INK #4,7:FOR i=2 TO 4:AT #4,i,14:PRINT #4,"00.00":END FOR i 

315 qual=8 

3020 REPeat jav_loop 

3825 draw_jav 

3030 foul=0:power=8:reset:dist=2:me=8 

335 keyl=O: key2=0: char=132:n=0: co=8 

3040 CSIZE 2,1:STRIP 2:INK S:AT 9,8:PRINT CHR$(132) 

3045 INK 7LINE 25,26 TO 35,26 

350 CSIZE 2,0: INK 2:PAPER 4:AT 10,3sPRINT "YOUR GO” 

3@55 FOR i=108 TO 1@ STEP -1:BEEP 300,i:END FOR i 

3056 PAUSE 40000 
306@ BEEP 1000,5 
3065 AT 10,3:PRINT " 
3067 CSIZE 2,1 
3078 FOR i=1 TO 34 
3075. key1=KEYROW(1) 
3080 BEEP 300,100 
3083 IF keyl>=64 AND key1<1Q0 THEN EXIT i 

3885 IF keyi<>@ AND keyl<>key2 AND power<23.5 THEN n=n+1 

3090 IF n=INT(level) THEN power=power+1:n=O 

3095 IF power>B AND (keyl=@ OR keyl=key2) THEN power=power-.2 

3102 AT #3,1,power:STRIP #3,Q:PRINT #3," ":STRIP #3,7,Q:AT #3,1,power+1sPRINT #3," ° 
3105 key2=key! 

341@ IF char=133 THEN char=132: ELSE char=133 

3A15 INK 2:STRIP 2 


3128 LINE 25,26 10 35,26:AT 9,8:PRINT " ":PAN #8,-10:INK S:AT 9,8:PRINT CHR$(char):INK 7:LINE 25,26 TO 35,26 
3124 co=cotl $ 

3125 IF co=1@ THEN INK 2:CSIZE 2,8:STRIP 1:AT 19,37sPRINT met+iO 

3126 IF co=t@ THEN LINE #8,1451,180 TO 1371,0:co=2:me=me+1d 

3127 CSIZE 2j1: INK S:STRIP 2 

318@ END FOR i 

3185 IF i=34 THEN foul=1 

3186 dist=-((33-i)) :power=power #1. 14 

3190 IF NOT foul THEN throw_jav:GO TO 3200 

3191 CSIZE 2,0 

3192 distance=0 

3193 STRIP 1: INK 2:FLASH 1:AT 14,2:PRINT "FOUL":BEEP @,30,37,9008,7,0,0,0:FLASH @ 

3194 FOR i=1 TO 10@0:END FOR i: BEEP 

3195 INK #4,7:AT #4,pos,14:PRINT #4,"----—" 

3200 pos=pos+! 

3205 INK #4,2 

3210 IF score>9 AND score<i@@ THEN AT #4,0,10:PRINT #4,score 

3215 IF score>99 AND score<1@Q0 THEN AT #4,0,9:PRINT #4,score 

3220 IF score>999 AND score<1@0@ THEN AT #4,0,8:PRINT #4,score 

3221 IF score>9999 THEN AT #4,0,7:PRINT #4,score 

3225 hi_scores 

3238 print_hi_scores 

3235 FOR i=1 TO 15@Q:END FOR i 
3236 STRIP 4 

3240 AT 11, 13PRINT " 

3241 AT 14,2:PRINT " " 
3245 IF pos=5 THEN EXIT jav_loop 
3250 END REFeat jav_loop 

3255 qualify=qual 

3268 END DEFine 

3299 2 

3308 DEFine PROCedure throw_jav 
3305 BEEP 1000,5 

3310 angle=10:STRIP #3,7:INK #3,2 
3315 AT #3,1,36:PRINT #3, angle 
3320 REPeat key_jav 

3325 IF KEYROW(1)=@ OR angle>82 THEN EXIT key_jav 

3338 angle=anglet3 

3335 AT #3,1,36:PRINT #3,angle 

3340 END REPeat key_jav 

3342 BEEP 1000,5 

3345 x=25: y=28 

3350 h=angle/6@: a=angle/12:b=SQRT (100-(ata) ):hh=1:al=asha=0 
3355 INK 2:LINE 25,26 TO 35,26:INK 7:LINE x,y TO x+byy+a 
3356 IF angle)5@ THEN power=power-(angle/10) 

3357 i=l 

3358 IF angle<3Q THEN power=power-1 

3360 REPeat mve_jav. 

3362 yl=y 


"SAT #3, 1,power:STRIP #3,@:PRINT #3," “ 


"SAT 13,1sPRINT " be 


3370 PAN #8,-12 

3373 co=cotl: dist=dist+! 

3374 IF co=18 AND me<9@ THEN INK 2:CSIZE 2,0:STRIF 1:AT 19,37:PRINT me+i@ 
3375 IF co=1@ THEN LINE #8,1451,100 TO 1371,0:co=O:me=me+10 

3388 IF (y+h)+a<é4 AND NOT ha THEN y=y+h’ 

3384 IF y+a¢2B THEN EXIT mve_jav 

3385 INK 4:LINE'x,y1 TO x#b,yitalsINK 7:LINE x,y TO x#b,yta 

3386 al=a > 

3398 IF i>(power#3)#.7 AND hh THEN hh=@:h=-h:a=-atha=0 

3396 IF i>(power#3)#.5 AND hh THEN ha=1 

3397 i=itt 

3399 END REPeat mve_jav 

3402 PAN #6,-29 

3485 INK 4:LINE x,y1 TO x+byyltalsINK 7sLINE x,yta TO x+b,y+(ata) 
3410 CSIZE 2,1: INK 2:STRIP 4 

$A12 distance=dist+(INT(RND(1 TO 98))/100) 

3413 CSIZE 2,8 

3414 IF distance<1 THEN distance=@:dist=distance 

3415 AT 11,1:PRINT "YOU THROW WAS -";distances "mn" 

3420 IF distance>7@.23 AND NOT qual THEN INK @:AT 13,1:PRINT "YOU HAVE QUALIFIED": qual=1 
3425 score=scoret (di st#3) 


3430 IF distance<1@ THEN INK #4,7:AT #4,pos,14:PRINT #4, "8"; distance: ELSE INK #4,73AT #4,pos,14:PRINT #4,distance 


3448 END DEFine m 

3999 : 

4000 DEFine PROCedure event_4 

4005 event=4:pos=2:CLS #7: qual=0 

4010 INK #4,7:FOR i=2 TO 4:AT #4,i,14:PRINT #4,°00.00":END FOR i 

4015 REPeat lo_sprint_loop 

4020 draw_\sprint 

4025 time (@):time (1): INK QsAT-B,30:PRINT "TIME:" 

4038 foul=@:tot=1:gm=1:in=290:power=8: 1imit=23.5 

4035 reset 

4040 CSIZE 2,1: INK S:STRIP 2:AT 8,14:PRINT CHR$(130) 

4045 co=14:n=0: key1=0:key2=0: char=130: total=740:pon_to=0 

4050 CSIZE 2,0: INK 2:PAPER 4:AT 10,3:PRINT "GET READY. . .” 

4055 le=RND(1008 TO 1680) 

4060 FOR i=1 TO lesEND FOR i 

4065 BEEP 100@,1:AT 12,3:PRINT "GO!" 

4070 time (0) 

4075 PAUSE 42008 

4080 AT #3,1,power:STRIP #3,0:PRINT #3," " 

4@85 AT 10,3:PRINT " “SAT 12,3:PRINT " 7 

4098 REPeat lo_sprint_l 

4095 IF char=13@ THEN time (1) 

4100 CSIZE 2,1:STRIP 2: INK 5 

4105 key1=KEYROW(1) 

4118 BEEP 30,100 

4115 IF keyt<>@ AND key1<>key2 AND power<limit THEN n=nt1 

4117 IF power<limit AND n=INT(level) THEN power=power+! 

4128 IF n=INT(level) THEN n=@:pon_to=pow_totpower 

4122 IF power )=limit AND power>8 THEN power=power-1 

4125 IF power >B AND (key1=@ OR keyi=key2) AND power<limit THEN power=power-. 1646667 
4130 AT #3,1,powersSTRIP #3,0:PRINT #3," ":STRIP #3,7,Q:AT #3,1,power+1:FRINT #3," " 
4135 key2=key1:IF total>25 THEN total=total-(power#.95) 

4148 IF char=138 THEN char=131: ELSE char=130 

4143 IF pow_to>240 AND limit>1@ THEN limit=INT(Limit-(total /40)):pow_to=2 
4145 IF co>=38 THEN co=O: INK #5,7:POINT #6,732,@: POINT #6,732,100 

4146 CSIZE 2,1:STRIP 2:INK 5 

4150 IF NOT gm THEN AT 8,14:PRINT " "PAN #4,-powersAT 8,14:PRINT CHR$(char) 
4155 IF gm THEN AT 8,14:PRINT " "sPAN #6,-25:AT B,14:PRINT CHR$(char) 
4160 co=cotpower 

4165 IF total<1@@ AND tot THEN LINE #4,730,100 TO 680,@: tot=0 

4178 IF total<10@ THEN fin=fin-power 

4175 IF fin<=@ THEN EXIT lo_sprint_l 

4182 gm=0 

4185 END REPeat lo_sprint_l 

4195 tme=ut$(19 TO )+(INT(RND(1 TO 98))/100) 

4200 CSIZE. 2,0:STRIP 2:INK 5 

4285 AT 8,35:PRINT tme 

4210 BEEP 1000,1 

4215 AT #4,pos,14:PRINT #4,tme 

4220 pos=post! 

4225 IF NOT qual AND tme<21.54 THEN qual=1:INK @:STRIP 4:AT 13,1:PRINT "YOU HAVE QUALIFIED" 
4230 score=score+INT ( (40-tme) #15) 

4232 INK #4,2 

4235 IF score)? AND score<1@8 THEN AT #4,8,10:PRINT #4, score 

4240 IF score)9? AND score<1000 THEN AT #4,8,9:PRINT #4,score 

4245 IF score>999 AND score<1@0@8 THEN AT #4,0,8:PRINT #4,score 

4246 IF score>9999 THEN AT #4,8,7:PRINT #4,score 

4258 hi_scores_2 

4255 print_hi_scores 

4268 FOR i=1 TO 15@@:END FOR i 

4265 AT 13,1:STRIP 4:PRINT " a 

4278 IF pos=5 THEN EXIT lo_sprint_loop 

4273 END REFeat 1o_sprint_loop 

4288 qualify=qual 

4285 END DEFine 

4999 + 

300@ DEFine PROCedure event_5 

5885 event=5;pos=2: qual=@:lim=,2 

5018 INK #4,7:FOR i=2 TO 4:AT #4,i,14:PRINT #4,°QQ.Q0":END FOR i 

5@11 IF INT(level)=2 THEN lim=.5 

5@12 IF INT(level)=3 THEN lim=1 

5@15 REPeat long_jump 

3028 draw_jump 

5825 foul=@: power=8: n=@:key1=0:key2=@:char=130: x=7: y=2 

5838 reset 

‘S@35 PAPER 2: INK 1:CSIZE 2,1:AT 7,2:PRINT CHR$(130) 

5840 CSIZE 2,0: INK 2:PAPER 4:AT 10,3:PRINT "YOUR GO:" 

‘3845 FOR i=108 TO 10 STEP -1:BEEP 308,i:END FOR i 

5046 PAUSE 49008 
5@58 BEEP 1008,5 
S55 AT 18,3:PRINT * 
5856 CSIZE 2,1:PAPER 2: INK 1 


We apologise for the small size of this listing, but we wanted to fit it in over two 
issues — next month sees the remainder. 


": AT #3,1,power:STRIP #3,8:PRINT #3," " 
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_ Start of term!Make sure you have 
the future of the class in the bag. 


Educational Computing isthe definitive magazine you find itis not for you. Simply cancel your order, 
for educationalists. Whether itis ata primary, 
secondary or higher education level, 


and we will makea refund. 

Noobligation;just an 
opportunity for you to find 
out why Educational 


Educational Computing ensures 


you are totally uptodate with the 


applications for Computing isso 
computersin highly respected. 
teaching. 
Find out for Send your 
yourself. completed coupon 
Return this to Educational 
coupon stating Computing, . 
how you want Priory Court, 
Number : eae 
to pay. Ifafter \ nee! 30-32 Farring 
reading don Lane, 
Educational London EC1R 


Computing 


{ioe Bo Bat 


Just like ham and eggs and peaches and cream, Commodore 
User is the perfect companion for your 64 or Vic 20. Every 
month Commodore User is packed full of the latest new 
games reviews, special projects and business computing, 
plus the latest software charts, Tommy’s Tips for your tricky 
computer problems, 
and much much more. 
Commodore User, the 


: . Gs 8 nels Iie 1 ae LF; - . 
perfect magazine for (= LN ct Vet a || me | si 
Commodore owners, at ; (al i Sa (ip Li 

re (a A ah 
your newsagent on the pg a lle 


‘ i 
first of every month. ee 
All for only 95p. ee 


E::. month this directory is 
BE vices with new products 
and information. 
If you or your company are 
currently manufacturing 
hardware or supplying QL 


HARDWARE 


Monitors 


Care Electronics 
0928 777155 
Philips and other monochrome 
monitors — 

Citadel Products Ltd 

01951 1848 

Data Distributors Ltd 

0990 28921 

Kaga, Sinclair Vision 
Microvitec PLC 

0274 390011 

Microworld Computer & Video 
Centre 

0273 671863 

Microvitec, Philips, Vision 
Opus Supplies Ltd 

Redhill 65080 

JVC 

Printerland 

0484 514105/687875 

Strong Computer Systems 
0267 231246 

Microvitec, Philips 
Technomatic Ltd 

01 2081177 

Microvitec, Kaga 

Viglen Computer Supplies 
01 843 9903 


Printers 


Data Distributors Ltd 
0990 28921 
Datasystems 
014821711 

Star 
MicroPeripherals 
0256 473232 

Canon 
Microworld 

0293 545630/0273 6711863 
Kaga, Epson, Smith Corona 
Printerland 

0484 514105/687875 

Epson, Brother, Kaga, Canon, 
Juki 
Strong Computer Systems 

0267 231246 

Brother, Shinwa, Epson, Kaga, 
Mannesman Tally, Canon, 
Daisystep, Smith Corona 
Technomatic Ltd 

01 208 1177 

Epson, Kaga, Juki, Brother 
Twickenham Computer Centre 
Q1 891 4991 

Kaga, Ensign, Canon 

Viglen Computer Supplies 

01 843 9903 


interfaces 


Cambridge Systems 
Technology 
0223 323302 
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INSTANT 
ACCESS 


software and would like to be 
included within this directory, 
just send details to ‘QL User 
Reference Chart’, Dept SE, QL 
User, Priory Court, Farringdon 
Lane, ECIR 3AU. 


Care Electronics 

0923 777155 

Computamate Data Products 
0782 811711 

Miracle Systems Ltd 

0272 603871 

Printerland 

0484 514105/687875 

Sigma Research 

231 Coldhams Lane, Cambridge 
Slave Software 

050 846 8866 

Q-Dise 

SMC Supplies 

01-441 1282 

Centronics & Epson Serial 
Technology Research Ltd 
0784 63547 

Transform Ltd 

089 283 4783 


Disk Systems 


Computamate Data Products 


0782 811711 

Compware 

0270 582301 

CST 

0223 323302 

Kidersoft 

0708 852647 

Medic Data Systems Ltd 
0256 475244 


| MicroPeripherals 


0256 473232 

Printerland 

0484 514105/687875 

Quest 

04215 66488 

Silicon Express 

0533 374917 

Strong Computer Systems 
0267 231246 


Modems 


A>Line Computer Systems 
0533 778724 

Commpak Data 

0792 473697 - 
MicroPeripherals 

0256 473232 

Modem House 

0392 69295 

Strong Computer Systems 
0267 231246 

Tandata 

06845 68421 

(OEL) 


Memory Expansion 


Eprom Services 

0532 667183 

Medic Data Systems Ltd 
0256 475244 

PCML Ltd 

0372 67282/68631 
QL+RAM cards 


Quest 

0421 566488 
Simplex Data Lid 
01575 7531 


Extras 


A>Line Computer Systems 
0533 778724 

4-way mains filter/adapter 
Action Computer Supplies 
01 908 3921 

Mains spike eliminator 
Anglo Services Ltd 

0705 671421 

QE Eprom Programmer 
Broomspring Specialities 
0742 737006 
Table-top stands 
Classified Product & Services 
0930 52204 

Leads etc. 

Computer Supplies 

146 Church Road, Boston, Lincs 
Joysticks 

Kidersoft 

0708 852647 

Quicksoft II Joystick and 
accessories 

4 Systems 

68 Foxwood Close, Feltham, 
Middx 

Cartridges & box 

Management Science Ltd 

17 West Hill, London SW18 

QL case 

Power International 

0705 756715 - 

Mains spike eliminator 

Sigma Research 

231 Coldhams Lane, Cambridge 
Joystick 

Sinclair Research 
0276 685311 

SMC Supplies 
01-441 1282 
Joystick adaptor 
Spectrotek 

0669 20565 

QL repair service 
Transform Ltd 
089 283 4783 

QL dust cover, microdrive storage 
box, RS232 lead 
Viglen Computer Supplies 
01 843 9903 
Voltmace Ltd 
Park Drive, Baldock, Herts 
Printer stand 


Utility Programs 


Accountancy Software 
Sinclair Research 

QL Cash Trader 
Adder 
0223 277050 

Q-Doctor, Assembler 

Bedsoft 

30 Lansdown Road, Bedford, Beds 
Screen Editor 

Champagne Computers 
Amsterdam 020-149130 

QL boek 

‘Computer One 

0223 862616 

Pascal, Forth, Assembler, Typing 
Tutor, Monitor 

Co-op Soft Lid 

0272 22223 

Ciwil/Structural Engineering 

DA Bandoo : 

81 Mount Pleasant, Wembley 
Assembler, Screen Editor 


Data Management 

0904 760351 

SBUTIL, Mbackup, Terminal, 

Chargen, SBextras, FM 

Digital Precision 

01 527 5493 

QL Super Sprite Generator, Games 

Designer, Monitor+Dissassembler 

Eidersoft 

0708 852647 

QSPell, Archiver, QL Art 

Flite Software Ltd 

010 358 7423023 

Equate (maths package) 

GST Computer Systems 

0954 81991 

QL Assembler, 68K/OS . 

Harcourt 

Sinclair Research 

QL Touch ’n’ Go 

Hisoft 

0582 696421 

MonQL 

J&D Software 

3 Alfred Road, Lowton, 

Warrington 

Metacomco 

0272 428781 

Assembler, BCPL, Lisp 

MicroAPL 

01 622 0395 

Micrologic Consultants Lid 

57 Station Road 

Micro Processor iayiteoring 

Ltd 

21 Hanley Road, Southwater, 
orsham, E Sussex 

QL Terminator Emulator 

PCS 

8 Oak Grove Way, Bridgwater, 

Somerset 

PCS Utilities 


Portfolio Software 

PO Box No 15, London SW11 
Positron Computing 

0554 759624 

Hi-res screen dump 
Printerland 

0484 514105/687875 
Metacomco Assembler 

Psion 

O01 723 9408/0553 

Quill, Abacus, Easel, Archive 
QCode 

42 Swinburne Road, Abingdon, 
Oxon 

Terminal Emulation, 68000 
Assembler/Editor 

QJump 

Sinclair Research 

QL Monitor, QL Toolkit 
QSoft 

01 499 7417 

Agenda 

Quest 

04215 66488 

Business Accounts 
Saltgrade Software 

31 Royal Terrace, Edinburgh EH? 
File Manager, File Editor 
Sigma Research 

231 Coldhams Lane; Cambridge 
Sketchpad 

Slave Software 

050 846 8866 

Arable Farmer Software 
Strong Computer Systems 
0267 231246 

Super Plant Software 

097 231246 

Plant & gardening software 
TDI Software Ltd 

0272 742796 

USCD Pascal, USCD Fortran 77, 


Advanced Development Toolkit, 
| USCD P-System, USCD Prolog 
__ | TR Computer Systems 


| 093 924 621 
| QL Payroll 

‘Triptych 

Sinclair Research 
_ | QL Decision Maker, QL 
__| Entrepreneur, QL Project Planner 
WD Software 
0534 813892 
| Xpert Software 


| 0460 42023 


Business software 


Games 


Bedsoft 

380 Lansdown Road, Bedford, 
Beds : 

Gambler, Beat the Clock 

Blain Software 

8 Berkeley Close, Staines, Middx 
Merry Muncher, Fire Tower, 
Advance Invaders 
Brainstorm 

4 Lindsey Close, Cramlington 
Westminster Palace 
Champagne Computers 
Amsterdam 020-149130 

| DR Q Leap 

CP Software 

10 Alexandra Road, Harrogate 
| Bridge Player 

Digital Precision 


| 015275493 


| QL Super Backgammon 
| Eidersoft 
| 0708 852647 
| QL Art, Zapper 
__ | English Software 
| 061 835 13858 
| QL Hyperdrive 


| Equate 


Ffordd Denwyn, Penyffordd, 
hester 
Solar Invaders, Wall Breaker, 
Draughts, Mind Your Path, 
Statistical Averages, Calendar 
_Microdeal 
| 0726 68020 
_| Havoc, Frogger, Cuthbert 


| Intersoft 


| 7 Richmond Road, Exeter, Devon 


_| Executive Adventure 


_| New Horizon Software 
_| Fourwinds, Cwn Lane, 
| Rogerstone, Gwent 
Pacman, QBERT, Gold 
Peak Electronics 
32 Clifton Avenue, Hartlepool, 
Cleveland 
QL Colour Quest 
| Printerland 
0484 513105/687875 
| Psion Chess 
Psion | 
O01 723 9408 
Psion Chess 
| Rodent Software 
3 Brookend Crescent, Henley-in- 
Arden, W Midlands 
Adventure Writer, QL Artist, 2x7 
| Games cartridges 
| S&B Software 
_ 20 St Nicholas Street, Diss, 
| Norfolk 
_Fantasia Adventure 
| Shadowsoft 
_ 0296 669740 : 


_| Aycliffe, Durham 
| Hungry Harry in the Haunted 


House, Doom Room: Exod. VUI 
Sinclair Research 

0276 685311 

Psion Chess - 

Summit Software : 
36 Wood Crescent, Rogerstone, 
Newport, Gwent 

Frogger, Dungeon 

Swansoft 

164 Vicarage Road, Morriston, 
Swansea 

Space Trek 


| Talent Computer Systems 


041 552 2128 

ZKUL, WEST, GraphicQL 
WD Software 

Hilltop, St Marys, Jersey 
WD Morse Tutor 


BOOKS 


Publishers 


Adder 
0223 277050 
Century 
01434 4241 
Collins 
01 493 7070 

Duckworth 

01 485 3484 

Ellis Horwood Ltd 

0284 789942 

Granada 

Q1 493 7070. 

Harper & Row 

01 836 4635 

Hutchinson 

01 387 2811 

Interface 

9-11 Kensington High Street, W8 
McGraw Hill 

0628 23431 

MicroPress 

0892 39606 

Melbourne House 

01 940 6064 

Prentice Hall 

0442 58531 
Sunshine 
01 437 4843 


Book Tities 


QL Archive 

Murray 

(Century £14.95) 

Advanced Archive on your 
Sinclair QL 

Davison 

Sigma Press £7.95 

68000 User Guide 

Fleetwood 

Sigma Press £8.95 

SuperBasic on the Sinclair QL 
Alcock 

Cambridge University Press £5.95 
The Real Thing 

Hall 

Sigma Press £7.95 

Inside the Sinclair QL 

Naylor & Rogers 

(Sunshine £6.95) 

Sinclair QL in Business 
Handley 

(Newnes Microcomputer Books 
£9.95) 
LISP: A Gentle Introduction to 
Symbolic Computation 
Touretzky : 

(Harper & Row £11.95) 


| LISP, The Language of 


Artificial Intelligence 
Berk : 
(Collins £9.95) 


Each month, for a trial period, this column will contain details of readers’ 
programs that we are able to offer on microdrive. 

In return for a small administration charge (per program — including a 
royalty for the author), we will copy onto blank microdrives any or all of the 
featured programs. 

Each program will be a direct copy of the published listing, or an extended 
version of that listing where the program in question was too long to print in 
full (programs for which an abridged version has been published are marked 
with an asterisk). : 

It must be stressed that we are not selling the software itself, nor providing 
any guarantee that it performs any particular function (though we do check 
every program that is to appear in QL User), we are merely offering a service 
to readers who wish to obtain QL User programs on drive rather than by 
typing them in straight from the page. 


HOW TO ORDER 


Listed below are programs which have appeared as listings inside QL User. 

To the right of each program entry is a small box, which you should mark 
with a bold cross if you want to order that program. 

Once you have put a cross next to all the programs you wish to have copied 
onto microdrive, simply complete the rest of the order form and send it along 
with your PO/cheque AND BLANK FORMATTED DRIVE to: 

QL User, MICRODRIVE EXCHANGE, Priory Court, 

30-32 Farringdon Lane, EC1R-3AU. : 
if you wish us to supply the drive, please add an extra £2.50 for every drive 
required and mark the order form appropriately. 

Please allow 28 days for delivery. 


Author Language Program Name Price Issue Size 
] Giles Todd (B) DIY Assembler £5.00 Jun/Mar 120 (1) 
| Converts Assembler source into m/c object code 

Richard Cross (AO) Mini Monitor £3.00 Oct 600 
I Pocket sized monitor with compi facilities 
I Didcock (8) Connect4 £1.00 Sept 15 
| Pit your wits against the QL 

Shergold & Tose (B) * Golf £2.00 May 350 


From fairway to green on 50 different courses of varying difficulty 


Williams & Holliday (AO) Paladin £5.00 Apr 70 


The basis of our games programming series — a space invaders type game written entirely machin 
| code 


o 


Z2>r>=zox<xm mMmMe=-Woowo=-sSs < 


] Richard Cross (MB) Sprite Animation £2.00 Apr 500 
A subtle blend of machine code and SuperBasic that produces a versatile sprite designer and high 

l speed animator 

] Steve Deary (B) Pacman £1.00 Mar 20 

] A reasonably fast rendition of the famous arcade favourite 

| Andy Carmicheal (B) Family Tree £3.00 Aug 1000 


Archive program and database for setting up and displaying large family trees 


| James Lucy (B) Composer £3.00 Oct 500 
Compose and play sheet music on the QL 
Mathew Capp (B) Miners £2.00 Aug 30 

| A nail biting management simulation that puts you in charge of the NCB 

| PJ Smith (B) * DIY Adventure £1.00 Feb 60 


A skeleton framework where you simply have to slot in the details to create your bespoke adventure 


] R Green (B) Qthello £1.00 Aug 25 
| A 3D version of the well known board game Othello for one or two players 
SJ Ackers (B) *Touch Type £4.00 Aug 80 


Touch typing course — 14 lessons, on-screen keyboard, 800+ word vocabulary and WPM readout 


ee ee 
B = SuperBasic, AO = Assembler + Object Code (ready to run), MB = Machine Code + 
4 Basic loader 


Totalcost £........... 


No of programs ordered 


| Total sectors 
(max 200 per drive) 


z 
.-) 

S. 
i-* 
2 
3 

2 


No of drives required @ £2.50each £............ 


Plus postage & packing £ b 


Subtotal £........... | 
Subscribers reduction *(if applicable) @ —10% £............ I 
Add VAT @ 15% 


TOTALTOBESENT £........... 
Please copy onto microdrive the programs above which | have indicated with I 
a cross. | enclose a cheque/PO to the value of £............ (made payable to 


QL User). | understand that QL User only undertakes to SUPPLY these I 
| programs (copied onto microdrive) and accepts no liability for their 
| operation as defined by the author. Neither can QL User supply additional | 
information about any of the listings other than that originally printed in the 
magazine (any article reprints required must be ordered and paid for | 
l separately at £1 each inclusive of post and packing). | 
) *Subscribers to QL User may deduct 10% off the Sub Total on their orders. i A 
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PRACTICAL INTRODUCTORY AND 
MORE ADVANCED COURSES ON QL PACKAGES 
One-day and Part-time. Ask for leaflet 


Microcomputer Advisory 
C. en tre Polytechnic of the South Bank 


Borough Road 
London SE1 0AA 


Tel: 01-928 8989 Ext. 2410 


LEWIS SOFTWARE PRESENTS 


Over 20 Mathematical procedures and functions of invaluable use to 
scientists, mathematicians, businessmen, etc. 


Includes: Linear and non-linear data fitting and equation solving, integra- 
tion, matric, manipulation, date and time functions, statistical procedures, 
base conversions, sorts, Fourier analysis, etc. 


May be used alone or merged with your own programs. Fitted data can be 
exported to Easel for graphical representation. Fully documented. 


Send cheque for £12.50 inc p&p 


LEWIS SOFTWARE 
14 DALE VIEW, CEFN CRIBWR, BRIDGEND, MID GLAMORGAN 


AD INDEX 


Cape Electronics... 


Classified .. 


Eidersoft 
English Software... 


Medic Data Systems.. 
Metacomco 
Microdeal.. 

Micronet 

Miracle Systems Ltd 


Technology Research 
Transform Ltd 


Viglen Computers 
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CASSIE, 
OL PAYROLL 


* WEEKLY, MONTHLY OR 4 WEEKLY & TAX, NI. P60, P35 CALCULATION 
* USER DEFINABLE DEDUCTIONS * COIN ANALYSIS/PAYMENT BOUNDING 
* SUPPORT COVER AVAILABLE 


£55 including postage and packaging (please add 15% VAT) 
Further details of this and other packages for Stock, Accounts, etc, are available from: 
TR COMPUTER SYSTEMS 


HEATHFIELD, HINE HEATH, STANTON, NR. SHREWSBURY, SALOP SY4 4NA 
Telephone: (093 924) 621 


QL BREAKTHROUGH! 
RECALL - GET BACK LAST LINE TYPED AT THE TOUCH OF A KEY edit errors and re-enter (use within 
any software), REAL WINDOWS - Each real window is stored off screen. Can be swapped with 
screen it overwrites, altered, then swapped back again. Allows windows to overlap and be shuffled, 
etc. All controlled with machine basic commands. PLUS FREE!!!! - Hi-Res screen dump to printer at 
the touch of a key from within any software and eight very useful machine basic commands. 
Cartridge plus p&p, £2.50. RECALL: £4. REAL WINDOWS: £4. FREE PROGRAMS with any order. 

K. OSBORNE, 17 Shaftesbury Way, Royston, HERTS (0763-45482) 


MEDIC DATASYSTEMS DISK DRIVES 


Now available — see our advert on page 30 


COMPWARE Tel: (0270) 582301 


QL POOLSWINNER 

The ultimate pools prediction program 
@ MASSIVE DATABASE Poolswinner is a sophisticated Pools prediction aid. It comes complete with a large 
database — 22000 matches over 10 years. All English and Scottish team names are in the database. 
@ PREDICTS Not just scoredraws, but no scores as well. 
@ SUCCESSFUL We guarantee that Poolswinner performs considerably better than chance. 
@ UNIQUE The precise prediction formula calculates the actual efficiency of every team as the results come in 
and with speed. As far as we know there isn't another pools predicting program that uses this method. 
ONLY £14.99 (all inclusive). 48 hours delivery from: Yorkshire Mails (Software), 33 High Street, South Hiendly, 
Barnsley, Yorkshire S72 9AE 


BONGOLIA ESCAPE 


A tri-part challenge to gain your freedom from a_ fascist 

dictator and, if you’re good enough, win yourself an island! 

This fast-moving program incorporates three distinct games: 

ATTACK!! Protect planet earth from alien spaceships 
(joystick/cursor keys). 

CODE-CRACKER = Crack the code on a vital combination lock. 

ISLAND Manage an Island economy and fight off 
invaders. 

Each scenario tests either your reaction speeds, reasoning - 

powers or management skills. Someday, who knows 

when, you'll need all three. Get training! 

Price only £8.95, including postage. Please allow 14 days 

delivery and send cheque/PO to: 

TROPIC SOFTWARE CO 

25 Rossway, Northwood, Middlesex HA6 3HU 


JOYSTICKS FOR QOL 


Plugs straight into control port 1 or 2. 
NEEDS NO INTERFACE OR ADAPTOR — £7.99 each or £15 for two. 


dd 50p p&p. 

Two joysticks plus CONCENTRATION (an addictive 1 -4 player game) on 
microdrive cartridge for only £23.95 inclusive. Game only: £10.95 inclusive. 
Send to: COMPUTER SUPPLIES 
146 Church Road, Boston, Lincs. PE21 0JX. 


bought 


the wrong 
computer 


... Or did ; 


Wellon Sept 13th youcan find out. The 
firstissue of Computing Age willbe | 
available onthe newstand. On the front 
willbe a FREE 32 page booklet assessing 
theseven best new generation micros... 
how does your computer stack up 
with the best? 


Computing Ageisabrandnew 
monthly magazine aimed atthe 
serious computer enthusiast. 


With the emphasis firmly on applications, 
new developments and strong 

communications coverage, the firstissue 

explains how tolog onto Telecom Gold;the 

incredible speed and storage possibilities 

of compact discs; blowing your EPROM on ; 

the BBC; a comparison ofnew 16 bit 
machinesand what NOT to 
buy this Christmas. 


Ifyou’re serious about computing, get 
Computing Age, on sale Sept 13th. 


‘Now youcancreate new 


dimensions in Computer Graphics. 


sincisir- eal 


Create superb colour pictures on your 
QL with TALENT’s outstanding new graphics 
package. It’s supplied on two microdrives — 
the first holds the master program and a 
printer dump utility, the second, three 
demonstration pictures. Backup copies can 
be made. GRAPHIQL comes with a detailed, 
clearly-written 60 page instruction manual, 
outlining the program’s many facilities. 


® Freehand drawing, 8 colours, optional flash 
® Rubber banding, rubber boxes, even rubber 
circles and ellipses @ Variable size texture 
definition @ Doodle pad ap 

@ Colour and texture fill . . & 
of any shaped area 


ENT 


VAN * 


its, gm POWER 
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® User definable paint brush — any colour 

or width @ Colour list for full control @ Re- 
colour facility e Magnification with panning 

@ Mirroring and rotation of blocks of screen 
@ Air-brush effect @ On-line ‘help’ facility 

e Full file-store access @ Printer dump utility. 


Text can be included in pictures. The 
characters can be single or double height 
with flash and underline. GRAPHIQL pictures 
can be putinto BASIC or assembler programs 
with the sample routines provided. 

Available from selected branches of 
Boots & WH Smiths. 


£34.95 + 50p 
postage & packing 


CLOMPLITER Sy aStEeEMsS 


Curran Building, 101 St James Road, Glasgow G4 ONS. Tel: 041-552 2128 (24 hour credit card hot-line) Software from Scotland 
QL and Microdrive are registered trade marks of Sinclair Research Ltd. 


